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Welcome, Newcomers! 


If you don’t know anything about computers and want us to spare you the 
long, technical explanations, relax—this book’s for you! 


Using this as your guide, you can enjoy your computer right away. The first 
section’s all you need to get going. The rest is frills. 


You'll find—especially at first-—that this book has you do many games, 
songs, and “fun’’ programs. If you want to do ‘‘practical’’ programs in- 
stead, be patient. You'll find plenty of that later. We start you off with the 
fun programs because they're the quickest way to feel at ease with the 
computer. Once you feel it’s truly an extension of yourself, you can make it 
do whatever you want. 


So sit down and spend a couple of hours with the computer. Type whatever 
you want. Play with it. Make it do something strange. In other words . . . 
feel comfortable with it. It can do endless things for you. 


... And Hello, Old-Timers! 


We haven't forgotten you. If you already know how to program, see your 
Quick Reference Card. It summarizes all Color BASIC words. If you want to 
learn more about Color BASIC words, use the index of this book to find the 
pages that describe them. 


To learn what the Color Computer is capable of, read Section IV. It shows 
how to program high-resolution graphics and call machine-language 
programs. 


To Get Started... 


Connect your computer by referring to Introducing Your Color Computer 2 
or Introducing Your Deluxe Color Computer. 


Then power up your computer: 

1. Turn on your television set. 

2. Select Channel 3 or 4 on the television set. 
3. Set the antenna switch to “COMPUTER.” 
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~ Turn on the computer. The POWER button is on the left rear of your 
keyboard (when you're facing the front). 


This message appears on your screen: 


COLOR BASIC ver. 
© 1988 TANDY 
OK 


(v.r. is two numbers specifying which version and release you have.) 
If you don’t get this message: 

: Turn the computer on and off again. 

. Adjust the brightness and contrast on your television set. 

. Check all the connections. 


If you still don’t get this message, refer to ‘Troubleshooting and Mainte- 
nance” in Introducing Your Color Computer 2 or Introducing Your Deluxe 
Color Computer. 


Once you do get the above message, you're ready to start. 


How Do You Talk to a Computer? 


In this book, you'll learn how to talk to your computer. That's all program- 
ming is, by the way. Once you learn how to communicate, you'll be able to 
get your computer to do whatever you tell it. (Well, almost.) 


The computer understands a language called Color BASIC. Color BASIC is 
a form of BASIC—Beginners All-purpose Symbolic Instruction Code. There 
are lots of computer languages. Color BASIC just happens to be the 
language your computer understands. 


We'll introduce BASIC words in the order that it’s easiest to learn them. 
When you get midway in the book, you may forget what one of the words 
means. If this happens, look up the word in your Quick Reference Card. 


? 


Chapter 1 


Chapter 2 


Chapter 3 


Chapter 4 
Chapter 5 
Chapter 6 
Chapter 7 
Chapter 8 
Chapter 9 
Chapter 10 
Chapter 11 


Chapter 12 


CONTENTS 


Section | THE BASICS 


Meet Your Computer .......... 00.02 cece eens 
PRINT SOUND CLS 


Your Computer Never Forgets 
(..« Unless you turiittoff 2 decveswssmsasorenes 
Strings Variables 


See How Easy Its? ..csccascvessocnoeriageee ces 


NEW INPUT GOTO TURN PRINT, PRINT; 
LIST IF/THEN 


Countthe: Beatensaccese esse wsdaesamone awaeiax 
FOR... TO...STEP NEXT 


Sing Outthé Ties coscnancwans wgvamennsacaes 
cis Nested Loops 


Decisions; DECISIONS 4.5 asescs-csiewsses we saeco 
IF/THEN END 


Gamesiof Chance eccacaecdsinesecwsniacamemss 
RND PRINT@ 


School DaVS.o.sateuens ons eeeusge eeenc coeneses 
DATA READ RESTORE INT CLEAR 


AVHARIGUEG o:05. deans aot ace geal dae sa ae 
GOSUB RETURN REM 


A Giftowith WordStsscesoas ens de snco same sect mative 
LEN LEFT$ RIGHT$ MID$ 


A POPiQUIZ w.caccosowereawoae ar oniarert mamas 
INKEY$ VAL 


More: BASICS! occ: co0seaasmegaees areas aetwraes eae 
STOP CONT MEM SGN ABS STR$ 
AND OR 


Section I] DRAWING PICTURES 


Chapter 13 
Chapter 14 
Chapter 15 
Chapter 16 


Chapter 17 


COlOPTHESEFEER cccccccstedeveaemsee nade aE0e 
SET RESET JOYSTK PEEK 


Gaines OF MGtION acc accce cocad pane eoemenmnw ds 
POINT 


The Talking-Computer Teacher............000055 
MOTOR AUDIO 


FAStePGMbNIES aice crcwnagsas actos seamoompad 
ASCII CHR$ 


LEESWSKCS cz seen apes decadio sow sepmeioemtng’ 


13 


18 


Section II| GETTING DOWN TO BUSINESS 


Chapter 18 


Chapter 19 
Chapter 20 


Chapter 21 
Chapter 22 


TAPING: carcdicunicmnndaavaremecacrosige ses womens 99 
OPEN CLOSE PRINT#-1 INPUT#-1 

EOF 

Managing Numbers... ..20:00s00.050..c0000880+ 105 
DIM 

Managitig Words scncas.s sta scmidis-csreune ane eewssi 110 
LLIST PRINT#-2 

SOMINE, scqsmeausacews atee Osi weearw sum sae 114 
ANALYZING daccim semainraatmr asda di emarecuanterndte 117 


Multidimensional Arrays 


Section IV A LITTLE BYTE OF EVERYTHING 


Part A 
Part B 


Appendix A 
Appendix B 
Appendix C 
Appendix D 
Appendix E 
Appendix F 
Appendix G 
Appendix H 
Appendix | 

Appendix J 


INDEX 


High-Resolution Graphics...........0 cess eees 124 
Using Machine-Language Subroutines 

With: Color BASIC cass ccnsss tresaowdianereormad 141 

APPENDIXES 

Musi€al TOn6S sa. c:scocnesgeaoonsesreseeaetees 149 
BASIC Colors and Graphics Characters........... 150 
PRINT@ Screen Locations ..............-.5000: 151 
Graphics Screen Locations ...........-..0 eevee 152 
ASCII Character Codes ......... 000s cece eee vane 153 
Answers to Exercises... 02... eee cece ee eee eee 155 
Subroutines: « saacusdsagemieninigeameantaras se 164 
Sample/Programs.......2. 05.0 seh dua swan emarew ywves 168 
EfFOr MESSABES asics Sachkeaste's edeee sa samemewnes 178 
BASIC SUMMALY 0205 24scanetenswpenew east ite 180 
at PU GENT RRAEE RROD cada maaan ww dreiwemrerre 185 


SECTION I 


THE BASICS 


In this section you'll learn how to program. Before you start, though, put 
yourself in the right frame of mind... 


Don’t try to do everything the “correct’’ way. Don’t try to understand 
everything. Above all, please don’t take our word for anything! 


Do have fun with your Color Computer. Try out your own ideas. Prove us 
wrong (if you can). Type anything and everything that comes to mind. 


Ready? Turn the page and begin. 


CHAPTER 1 


MEET YOUR COMPUTER 


Have you connected and turned on your computer? Are you ready to give 
it a first workout? 


This chapter and the next introduce you to your computer—the way it 
thinks, some of its talents, and even a couple of its quirks. By the time you 
reach Chapter 3, you'll be ready to program . . . promise! 


Type whatever you want. Then press the (ENTER) key. Don’t worry about 
anything but the last line of type on your screen. It says: 


OK 


OK is the computer's “prompt.” It’s telling you, “OK, enough foolishness 
...as soon as you are ready .. .”’ (It patiently waits for your command.) 
You're the master—you tell the computer to do whatever you wish. 


Give the computer your first command. Type this exactly as it is below: 
PRINT "HI» I’M YOUR COLOR COMPUTER" 


When you reach the right side of your screen, keep typing. The last part of 
the message appears on the next line. 


Now check your line. Did you put the quotation marks where we have 
them? If you made a mistake, no problem. Simply press the key and the 
last character you typed disappears. Press it again and the next to the last 
disappears (... and so on and so on...). 


All letters you type should be 
BLACK with a GREEN 


BACKGROUND. If they’re 
reversed (green with a black 
background), press the 
and (@) (zero) keys at 
the same time. 


Ready? This should be on your screen: 


See the blinking light? OK 
Wherever you see it, youcan PRINT "HI» I’M YOUR COLOR COMPUT 
type something. ER" 
Press the (ENTER) key and watch. Your screen should look like this: 
OK 
PRINT "HI» I’M YOUR COLOR COMPUT 
ER" 
HI» I’M YOUR COLOR COMPUTER 
OK 


Your computer just obeyed you by printing the message you have in 
quotes. Have it print another message. Type: 


PRINT "2" 
Press (ENTER). The computer again obeys you and prints your next 
message: 


° 
pa 


Try another one: 
PRINT "2 + 2" (ENTER 
The computer obeys you by printing: 


2+2 
You probably expect much more than an electronic mimic . . . maybe 
some answers! Give your computer some numbers without the quotation 
marks. Type: 


PRINT 2 + 2 (ENTER 
Much better. This time the computer prints the answer: 


4 


The quotation marks obviously have a meaning. Experiment with them 
some more. Type each of these lines: 


PRINT 5+4 (ENTER 
PRINT "5+4" (ENTER 
PRINT "5+4 EQUALS" 5+4 (ENTER 


PRINT 6/2 "IS G/2" (ENTER The computer thinks of 

" mu quotes as a journalist does. If 

PRINT Bie ENTER the number's in quotes, the 
PRINT 8/2 computer must PRINT it ex- 

‘ actly as it appears. If it’s not 

Any conclusions on what the quotes do? in quotes, the computer can 


interpret it by adding, sub- 
tracting, multiplying, or di- 
viding it. 


RULES ON STRINGS v NUMBERS 


The computer sees everything you type as strings or numbers. If it’s in 
quotes, it’s a string. The Computer sees it exactly as it is. If it’s not in 


quotes, it’s a number. The computer figures it out like a numerical 
problem. 


A Color Calculator, No Less! 


Any arithmetic problem is a snap for the computer. Do some long division. 
Type: 

PRINT "3862 DIVIDED BY 13.2 15" 3862/13.2 
Do a multiplication problem: 

PRINT 1589 * 23 


Notice that the computer's multiplication sign is an asterisk (*), rather than 
the sign you use in mat . The computer's so precise that it would get the 
X multiplication sign mixed up with the X alphabetical character. 


Try a few more problems: 


PRINT "15 * 2 =" 152 (ENTER Notice how the computer 
PRINT 18 * 18 "IS THE SQUARE OF 18" (ENTER handles parts in quotes v 


7 PRINT 33,.3/22,82 (ENTER parts not in quotes. 


Now it’s your turn. Write two command lines that print these two problems 
as well as their answers: 


157 /13.2 = 
95 * 43 = 


DO-IT-YOURSELF COMMAND LINES 


Actually, there’s no “cor- 
rect’ command line. For 


that matter, there is no cor- 
rect way of handling your 
computer. There are many 
ways of getting it to do what 
you want. Relieved? ... 
Good! 


If you use the “correct’’ command lines, this is what the computer prints on 
your screen: 


157 /13.2 = 11,89393994 
95 * 43 = 4085 


Ready for the answers: 


PRINT "157 /13,2 =" 157/13.2 
PRINT "95 *# 43 =" 95#43 


It Has Its Rules... 


By now, the computer has probably printed some funny little messages on 
your screen. If it hasn’t, type this line, deliberately misspelling the word 
PRINT: 


PRIINT “HI" (ENTER 
The computer prints: 
TSN ERROR 


fe 2SN ERROR stands for “‘syntax’’ error, This is the computer's way of saying, 


If you don’t get the right col- 
ors, refer to the color test in 
Introducing Your Color 
Computer 2. 


“The command ‘PRIINT’ is not in my vocabulary . . .| have no earthly idea 
what you want me to do.”’ Any time you get the ?SN error, you probably 
made some kind of typographical mistake. 


The computer also gives you error messages when it does understand what 
you want it to do, but it feels you’re asking it to do something that is 
illogical or impossible. For instance, try this: 


PRINT 3/@ (ENTER 


The computer prints: 


WW you get an error message you don’t understand, flip to the on 


?/@ ERROR 


which means, ‘Don’t ask me to divide by 0O—that’s impossible!”’ 


We've listed all the error messages there and what probably caused them. 


i a — a 6 


It’s a Show-off Too 


So far, all you’ve seen your computer do is silently print on a green screen. 
But your color computer enjoys showing off. Type: 


CLS(3) (ENTER 


Now your screen is a pretty shade of blue with a green stripe at the top. 
Your command told the computer to clear the screen and print color 
number 3—blue. 


But why the green stripe? Whenever the computer prints characters, it must 
use a green background, not a blue background. Type some more charac- 
ters. The computer uses a green background for them also. 


Colors other than green are for printing pictures. You'll learn how to do that 
later. 


Press to get the OK prompt. Then type: 
CLS(7) 


Now your screen is magenta (pinkish purple) with a green stripe at the top. 
Try some more colors. Use any number from 0 to 8. The Color Computer 
has nine colors. Each color has a numeric code. 


Type CLS without a number code: 
CLS 


if you don’t use a number code, the computer assumes you simply want a 
clear green screen. 


Computer Sound Off—One, Two... 


Type this: 
SOUND 1+ 10@ (ENTER 
lf you don’t hear anything, turn up the volume and try again. 


What you’re hearing is 6 seconds of the lowest tone the computer can 
hum. How about the highest tone? Type: 


SOUND 255, 1008 


OK, so it has a good “‘hum-range”’ . . . hope you’re suitably impressed. Try 
some other numbers. Hope you like the computer's voice (it’s the only one 
it has). 


You want to know what the other number is for? (Or maybe you've already 
found out.) The second number tells the computer how long to hum the 
tone. You can use any number from 1 to 255. Try 1: 


SOUND 128+» 1 (ENTER 
The computer hums the tone for about 6/100ths of a second. Try 10: 
SOUND 128; 10 (ENTER 


The computer sounds the tone for 6/10ths of a second. Try variations of 
both numbers, but keep in the range of 1 to 255. 


BUG: If you see a message 
saying MICROSOFT, or if 


you see a ¢FC Error message, 
you’re using a number other 
than 0 through 8. 


BUG: Again, if you get a ?FC 
Error message, you're using 
a number other than 1 
through 255. 


Press the GHIFT) and (0) (zero) keys, holding both down at the same time. 
Now release them and type some letters. The letters you type should be 


reen ona black background. If they're not, try again, pressing (SHIFT 
slightly before (0). Be sure to hold down both keys at the same time and 
then release them. 


Now, with the colors ‘‘reversed,”” press (ENTER) and then type this simple 
command line: 


Before You Continue... 
| 
' 
| 
| 


Curious about the reversed 
colors? They’re for people 


with a printer. The printer PRINT "HI" (ENTER 


prints all “reversed’’ letters 
in lowercase. { The computer gives you a ?SN ERROR. It doesn’t understand the 


command. 
Press the and (0) characters again and release them. Type some 


letters. They should be back to_narmal: black with the green background 
Press (ENTER) and type the same command line again. This time it works. 


The computer can’t understand any commands you type with reversed 
colors. If you ever press GHIFD(O) by mistake and find you're typing with 
these reversed colors, press GHIFN)(O) again to get the colors back to 


normal. 


Learned in Chapter 1 


BASIC WORDS KEYBOARD CONCEPTS 
CHARACTERS 


PRINT string v numbers 
SOUND (ENTER) error messages 
CLS 


A refresher like this is at the end of each chapter. It helps you make sure 
you didn’t miss anything. 


Notes 


CHAPTER 2 


YOUR COMPUTER NEVER 
FORGETS 


(... unless you turn it 
off...) 


One skill that makes your computer so powerful is its ‘“memory.”” Have it 
“remember” the number 13. Type: 


A = 13 (ENTER 


Now “‘confuse’’ the computer by typing whatever you want. When you're | pid it get confused? or 
done, press (ENTER). See if the computer remembers what A means by _ | forget? 
typing: 


PRINT A (ENTER 


Your co rrem rs th i | haveiton... i 
our compute embers that A is 13 as long as you have it on or until Ray MeN 


you do this. Type: you may be accustomed to 
using the word LET before 


= ? 
A= 17.2 (ENTER these command lines. The 


‘ . . Color Computer doesn’t let 
If you ask it to PRINT A now, it prints 17.2. vou Uiete werd TET. 


This is what happened in your computer’s memory: 


YOUR COMPUTER’S MEMORY 
A— 13 
17.2 


You don’t have to use the letter A. You can use any letters from A to Z. In 
fact, you can use any two letters from A to Z. Type: 

B=15 

C=20 

BC = 25 (ENTER 


Have it print all the numbers you've asked it to remember. Type: 


PRINT A+B+C» BC 


If you want the computer to remember a ‘‘string’”’ of letters or numbers, use 
a letter with a dollar sign ($). Type: 


A$ = "TRY TO" 
B$ = "REMEMBER" 
C& = "THIS» YOU" 


BCS = "GREAT COMPUTER" 


Then type: 
To the computer, a dollar 
sign means a string. PRINT A$+ BS» C$» BCS (ENTER 


“Computer types” have a name for all the letters you've used: “‘vari- 
ables.’ So far, you've used these variables: 


YOUR COMPUTER’S MEMORY 
NUMBERS CHARACTERS 


: A$—> “TRY TO” 
B= 15 B$—> “REMEMBER” 
C$— “THIS, YOU” 
BC$— “GREAT COMPUTER” 


Spot-check the above variables to see if the computer remembers the right 
information. For instance, to see if BC still contains 25, type: 


PRINT BC (ENTER 


Think of variables as little boxes in which you can store information. One 
set of boxes is for strings; the other set’s for numbers. Each box has a label. 


Try to set the computer to 
remember a letter we 
haven’t used yet. What hap- 
pens? Interesting . . . 


As we said before, the com- 
ufer hag it ruleset aright The Computer Is Fussy About Its Rules 
get a little fussy with you if 
you don’t play by them. 


Do you think the computer accepts these lines? 


"6" (ENTER 
"THIS IS STRING DATA" (ENTER 


“4 
nou 


TM stands for Type Mis- 
Match error. It means you 
didn’t go by the rules. 


The computer responds to both above lines with 2TM ERROR. It’s telling 
you that you have to play by its rules. aiid ; 
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ee ee 


The rules “ignored’’ by the above lines are: 


RULES ON STRING DATA 
(1) Any data in quotes is STRING DATA. 


(2) You can assign STRING DATA only to variables WITH A $ SIGN. 


To make the above lines obey the computer’s rules, use a dollar sign with 
the D and Z. Type: 


D$ = "G" (ENTER 
Z$ = "THIS 15 STRING DATA" (ENTER 


The computer now accepts these lines. 
How about this line? Do you think the computer accepts it? 
D = G (ENTER 


The above line ignored these rules: 


RULES ON NUMERIC DATA 
(1) Numbers not in quotes are NUMERIC DATA. 


(2) Numeric data can only be assigned to variables WITHOUT A $ 
SIGN. 


Type this, which the computer accepts: 
D 


YOUR COMPUTER’S MEMORY 
STRINGS 


DS "60 
Z$—> “THIS IS STRING DATA” 


Now do something interesting with what you've asked the computer to 
remember. Type: 


PRINT D * 2 (ENTER bs ou remembers 


The computer prints the product of D times 2. 


Try this line: 


PRINT 2/D 


15 


The computer prints the quotient of Z divided by D. 
Would this work? 
PRINT D$ ¥2 


Did you try it? This makes the computer print the same ?TM ERROR. It 
cannot multiply string data. 


Cross out the commands below that the computer rejects: 


EXERCISE WITH VARIABLES 
22,9999999 


"19,2" 
"REMEMBER THIS FOR ME" 


Finished? These are the commands the computer accepts. 


F = 22,9999999 
DZ$ = "REMEMBER THIS FOR ME" 
Z=F+F 


RULES ON VARIABLES 


You may use any two characters from A to Z for a variable. The first 
character must be a letter from A to Z; however, the second may be 
either a numeral or a letter. If you want to assign it string data, put a 
dollar sign after it. Otherwise, it can hold only numeric data. 


Learned in Chapter 2 
CONCEPTS 


Variables 
String v Numeric Variables 


Now that you've learned how the computer thinks, it will be easy to write 
some programs How about a break, though, before going to the next 
chapter? 


Notes 


CHAPTER 3 


SEE HOW EASY IT IS? 


Type: 
NEW 

This erases whatever may be in the computer's ‘‘memory.”’ 

Now type this line. Be sure you type the number 10 first—that’s important. 
10 PRINT "HI+ I’M YOUR COLOR COMPUTER" 


Did you press (ENTER)? Nothing happened, did it? Nothing you can see, that 
is. You just typed your first program. Type: 


RUN (ENTER 


The computer obediently runs your program. Type RUN again and again 
to your heart’s content. The computer runs your program any time you 
wish, as many times as you wish. 


Since this works so well, add another line to the program. Type: 
20 PRINT "WHAT IS YOUR NAME?" (ENTER 

Now type: 
LIST 


Your computer obediently lists your entire program. Your screen should 
look exactly like this: 


1@ PRINT "HI»+ 1’M YOUR COLOR COM 
PUTER" 
2@ PRINT "WHAT IS YOUR NAME?" 


What do you think will happen when you run this? Try it. Type: 
RUN (ENTER) 
The computer prints: 


HI+ I’M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 


Answer the computer’s question and then press (ENTER). . . . What? There’s 
the ?SN Error again. 


When you simply type your name, the computer doesn’t understand what 
you mean. In fact, the computer can’t understand anything unless you talk 
to it in its own way. 


Use a word the computer understands: INPUT. Type this line: 
30 INPUT A% (ENTER 


This tells the computer to stop and wait for you to type something, which it 
labels as A$. Add one more line to the program: 


40 PRINT "HI +" AS 

Now list the program again to see if yours looks like mine. Type: 
LIST 

Your program should look like this: 


1@ PRINT “HI, 1’M YOUR COLOR COM 
PUTER" 

20 PRINT "WHAT IS YOUR NAME?" 
30 INPUT A$ 

4@ PRINT "HI+" A$ 


Can you guess what will happen when you run it? Try it: 
RUN (ENTER 


That worked well, didn’t it? This is probably what happened when you ran 
the program (depending on what you typed as your name): 


HI+ I’M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 

? JANE 

HI + JANE 


RUN the program again using different names: 


HI» 1’M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 

? HUGO 

HI + HUGO 


HI, I’M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 

? 72-36-8228 

HI + 722-36-8228 


HI+ I’M YOUR COLOR COMPUTER 
WHAT 1S YOUR NAME? 

? NONE OF YOUR BUSINESS 

HI + NONE OF YOUR BUSINESS 


HI+ I’M YOUR COLOR COMPUTER 
WHAT 1S YOUR NAME? 

? IGETIT!! 

HI, I GET IT!! 


The computer doesn’t care what you call yourself.) 


Here’s what Line 30 did to your computer’s memory each time you ran the 
program (assuming you gave it the same names we did): 


_If you make a mistake after 
pressing (ENTER), simply 


type the line again. 
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YOUR COMPUTER’S MEMORY 


JANE 
HUGO 

772-36-8228 

NONE OF YOUR BUSINESS 
| GET IT!! 


There’s an easier way to run your program over and over without having to 
type the RUN command. Type this line: 
5@ GOTO 18 


GOOOO000000 O 
oO fe) 
. Oo or 
1e) O 
OGOOCOOCOOO00O 


Now run it. The program runs over and over again without stopping. 
GOTO tells the computer to go back to Line 10: 


12 PRINT "HI» I’M YOUR COLOR COMPUTER" 
2 PRINT "WHAT IS YOUR NAME?" 

38 INPUT A$ 

40 PRINT "HI+" A& 

538 GOTO 10 


Your program now runs perpetually. Each time it gets to Line 50, it goes 
back to Line 10. We call this a “loop.”” The only way you can stop this 
endless loop is by pressing the key. 


Spotlight Your Name 


Change Line 50 to give your name the attention it deserves. How do you 


To delete a program line, 2 Ci , ; ; ; 
type and (ENTER) the line change a program line? Simply type it again, using the same line number. 


number. For example: Type: | 
50 | 

erases Line 50 from the 5®@ GOTO 40 

mes This is what the program looks like now: 


1@ PRINT "HI» I’M YOUR COLOR COMPUTER" 
20 PRINT "WHAT IS YOUR NAME?" 

30 INPUT A$ 

4@ PRINT "HI+" A% 

58 GOTO 40 


Type RUN and watch what this loop does. When you've seen enough, 


We're leaving out the “HI” 


There’s a big change you can make simply by adding a comma or a 
semicolon. Try the comma first. Type Line 40 again, but with a comma at 
the end: 


4@ PRINT A$: 
Run the program. The comma seems to print everything in two columns. 


Press (BREAK) and try the semicolon. Type: 


20 


ee 


40 PRINT AS%5 


and run... You probably won't be able to tell what the program's doing 


until you press (@REAK). See how the semicolon crams everything together? NEW (NTE . . . wish 


mine worked that easily! 


RULES ON PRINT PUNCTUATION 


This is what punctuation at the end of a PRINT line makes the 
computer do: 
1. Acomma makes the computer go to the next column. Use it to print 


in columns. 

2. Asemicolon makes the computer stay where it is. Use it to ‘“cram’’ 
what you print together. 

3. No punctuation makes the computer go to the next line. Use it to 
print in rows. 


Color/Sound Demonstration 


Want to play with color and sound some more? First, erase memory. 
Remember how? 


Remember, if you make a 
mistake on one of the lines, 
simply type the line again. 


Then enter this program: 


10 PRINT "TO MAKE ME CHANGE MY TONE" in this program we're using . 


20 PRINT "TYPE IN A NUMBER FROM 1 TO 255" eS ores cago 
30 INPUTT 


40 SOUND T» 58 Notice that Line 30 asks for 

50 coToia T rather than T$. This is 
because we want numeric 

Run through the program to get a sample of the computer's tones. data rather than string data. 


BUG: If you get a ?FC Error when you run this program, you used a number 
other than 1 through 255. This error, like all errors, will make the computer 
stop running the program. 


What happens if you change Line 40 to: 
40 SOUND 50; T 
HINT: Look back in Chapter 1 where we talk about SOUND. 


Know the answer? If you make the above change, the computer hums the 
same tone each time, but for a different length of time, depending on what 
number you use. 


DO-IT-YOURSELF PROGRAM 
Press first and then erase this program by typing NEW. Now see 


if you can write a program, similar to the one above, to make the 
computer show a certain color. Remember, there are 9 colors, 0 
through 8. 


HINT: Line 40 could be: 40 CLS(T). 
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This is our program: 
i@ PRINT "TO MAKE ME CHANGE MY COLOR" 
20 PRINT "TYPE A NUMBER BETWEEN @ AND 8" 
30 INPUT T 


40 CLS(T) 
58 GOTO 19 


Add Polish to the Program 


Pressing the BREAK key is a sloppy way to stop the program from running. 
Why not have the computer politely ask if you’re ready to end? Change 
Line 50 in the above program to: 


Press before typing 
the line. 52 PRINT "DO YOU WANT TO SEE ANOTHER COLOR?" 


Then add these lines: 


6@ INPUT RS 
70 IF R$ = "YES" THEN 20 


Run the program. Type YES and the program keeps running. Type anything 
else and the program ends. 


This is what the program looks like now: 
10 PRINT "TO MAKE ME CHANGE COLORS" 
20 PRINT "TYPE A NUMBER BETWEEN @ AND 8" 


30 INPUT T 


40 CLS(T) 
5@ PRINT "DO YOU WANT TO SEE ANOTHER COLOR?" 


68 INPUT R$ 
70 IF R$ = "YES" THEN 20 


This is what the new lines do: 


° Line 50 prints a question. . 


Don’t worry about IF/THEN 
right now. We devote a 


whole chapter to it later. . Line 60 tells the computer to stop and wait for an answer: R$. 


. Line 70 tells the computer to go back to Line 20 IF (and only if) 
your answer (R$) is “yes.” If not, the program ends, since it has 


no more lines. } 


You've covered a lot of ground in this chapter. Hope we’re just whetting | 
your appetite for more. 


Don’t worry if you don’t yet understand it perfectly. Just enjoy using your 
computer. 


Learned in Chapter 3 
BASIC WORDS CONCEPTS KEYBOARD 


Characters How to Change and Delete a BREAK 
NEW Program Line 
INPUT 


GOTO 
RUN 
PRINT, 
PRINT; 
LIST 
IF/THEN 
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Notes 
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CHAPTER 4 


COUNT THE BEAT 


In this chapter you'll experiment with computer sound effects. Before 


eee will become doing this, you need to teach the computer to count. 


Type: 
1i@ FORX=1TO190 
20 PRINT "X=" K 
30 NEXT X 


40 PRINT "I HAVE FINISHED COUNTING" 


Remember to type NEW Run the program. 
(ENTER) before typing a new 
program. 


Run the program a few more times. Each time, replace Line 10 with one of 


these lines: 
12 FORX=1701900 
10@ FORK=S5TO15 
1i0@ FORK=-27T02 
i@ FOR XK = 


Do you see what FOR and NEXT make the computer do? They make it 


2070 24 | 
count. Look at the last program we suggested you try: | 


10 FOR X= 207024 
(20 PRINT "X =" X 
30 NEXT x 
40 PRINT "I HAVE FINISHED COUNTING" 


Line 10 tells the computer the first number should be 20 and the last 
number should be 24. It uses X to label all these numbers. 


Line 30 tells the computer to keep going back to Line 10 for the next 
number—the NEXT X—until it reaches the last number (number 24). 
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Look at Line 20. Since Line 20 is between the FOR and NEXT lines, the 
computer must print the value of X each time it counts: 


Pa 
uuu 
PIP NM Pp 
Lune Ss 


Add another line between FOR and NEXT: 
15 PRINT "..+ COUNTING ..." 


and run the program. With each count, your computer runs any lines you 
choose to insert between FOR and NEXT. 


DO-IT-YOURSELF PROGRAM 4-1 


Write a program that makes the computer print your name 10 times. 


HINT: The program must count to 10. 


DO-IT-YOURSELF PROGRAM 4-2 


Write a program to print the multiplication tables for 9 (9*1 through 
9*10). 


HINT: PRINT 9*X is a perfectly legitimate program line. 


DO-IT-YOURSELF PROGRAM 4-3 


Write a program that prints the multiplication tables for 9*1 through 
9+25, 


HINT: By adding a comma in the PRINT line, you can get all the 
problems and results on your screen at once. 


Finished? These are our programs: 


Program 4-1 Program 4-2 
1@ FORX=17010 10 FORX=17T010 
22 PRINT "THOMAS" 20 PRINT "Q#"X"="9#xX 
3@ NEXT X 30 NEXT X 
Program 4-3 


19 FORX = 17025 
20 PRINT "S#"X"="QeX, 
30 NEXT X 
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You may be wondering 
about the programs you ran 
at the first of this chapter 


without using STEP. If you 
omit STEP, the computer 
assumes you mean STEP 1. 


26 


Counting by Twos 


Now make the computer count somewhat differently. Erase your program 
by typing NEW and then type the original program, using a new Line 10: 


10 FORX=2TO10STEP2 
20 PRINT "X=" X 

30 NEXT X 

40 PRINT "I HAVE FINISHED COUNTING" 


2,4, O83 


Run the program. Do you see what the STEP 2 does? It makes the computer 
count by 2s. Line 10 tells the computer that: 


° The first X is 2 
° The last X is 10 
s«eAND STEP 2 «.. 


° All the Xs between 2 and 10 are two apart. . . that is 2,4, 6,8, and 10. 
(STEP 2 tells the computer to add two to get each NEXT X.) 

To make the computer count by 3s, make all the Xs three apart. Try this for 

Line 10: 


i@ FORKXK=3T0O18@STEP 3 
Run the program. This prints on your screen: 


3 
6 
9 


It passes up the last X (number 10) because 9 + 3 = 12. Try a few more 
FOR ... STEP lines so you can see more clearly how this works: 


5 7050 STEP 5 
10701 STEP-1 
1 T0208 STEP 4 


1@ FOR X 
10 FOR X 
1@ FOR X 


hou ott 


Counting the Sounds 


Now that you’ve taught the computer to count, you can add some sound. 


Erase your old program and type this: 


1@ FORX=170 255 


20 PRINT "TONE " X Don’t type the arrow, of 
30 SOUND X+1 course. It’s there to help you 
40 NEXT & understand. 


This program makes the computer count from 1 to 255 (by 1s). Each time it 
counts a new number, it does what Lines 20 and 30 tell it to do: 


. Line 20—It prints X, the current count. 
. Line 30—It sounds X’s tone. 
For example: 


. The first time the computer gets to FOR, in Line 10, it makes X equal 
to 1. 


» Then it goes to Line 20 and prints 1, the value of X. 

. Then Line 30 has it sound tone #1. 

. Then it goes back to Line 10 and makes X equal to 2 

. Etc. 

What do you think the computer will do if you make this change to Line 10: 
10 FOR X = 255 TO 1 STEP -1 

Did you try it? 


PROGRAMMING EXERCISE 


Using STEP, change Line 10 so the computer will sound tones 
from: 


(1) The bottom of its range to the top, humming every tenth note. 


(2) The top of its range to the bottom, humming every tenth note. 


(3) The middle of its range to the top, humming every fifth note. 
10. 
10. 
10 


Ready for the answers? 


Try this: To pause the pro- 


1@ FOR XK =1 70 255 STEP 10 gram while it’s running, 
1@ FOR X= 255 701 STEP -1i8 press the (SHIFT and @ keys 
i@ .FORX=12870255 STEP 5 at the same time. Then press 


any key to continue. 


DO-IT-YOURSELF PROGRAM 4-4 


Now see if you can write a program that makes the computer hum: 


(1) from the bottom of its range to the top, and then 
(2) from the top of its range back to the bottom 


The answer is in the back of this book. 
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But Can It Sing? 


Yes. Although your computer is slightly off pitch, it can warble out most 
songs. The next chapter shows how to teach it some of your favorite songs. 


Learned in Chapter 4 
BASIC WORDS KEYBOARD CHARACTER 


FOR...TO... STEP 
NEXT 


CHAPTER 5 
SING OUT THE TIME 


You're now ready to show your computer how to do two tasks: tell time 
and sing (well, as good as the computer can sing). Since both are closely 
related—especially to your computer!—we'’ re covering them in the same 
chapter. 


Start by typing this: 


1@ FORZ=iTO4d60*2 
20 NEXT 2Z 
30 PRINT "I COUNTED TO 9208" 


Run the program. Be patient and wait a couple of seconds. Two seconds, to 
be precise. It takes your computer two seconds to count to 920. 


Lines 10 and 20 set a timer pause in your program. By making the 
computer count to 920, you keep the computer busy for two seconds. 


As you can see, this is groundwork for a stopwatch. Erase the program and 
type: 


10 PRINT "HOW MANY SECONDS?" 


20 INPUTS 
30 FORZ=1 TO 460*5 
40 NEXT2 


5@ PRINTS " SECONDS ARE UP!!!" 


Run it. Input the number of seconds you want timed on your stopwatch. 


DO-IT-YOURSELF PROGRAM 


It would help if the stopwatch could sound some kind of alarm. Add 
lines to the end of the program to give it an alarm. 
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Here’s the program we wrote: 


1@ PRINT "HOW MANY SECONDS" 
208 INPUTS 


30 FORZ=1TO460%#5 
40 NEXT 2 


50 PRINTS " SECONDS ARE UP!!!" 
6@ FORT = 12070180 

This is how computerized 7@ SOUND T>» 1 

timers work. 8a NEXT T 


90 FORT =1508T0140 STEP -1i 
100 SOUND T+; 1 
110 NEXT T 


120 GOTO 5a 


Notice the GOTO line at the end of the program. It causes the message to 
keep printing and the alarm to keep ringing until you press (BREAK) or 


GHIFD@. 


Counting Within the Time 


Before doing more with the clock, have the computer keep count within 
the time. This concept will become clear to you shortly. 


Type this new program: 


19 FORKX=1T03 
20 PRINT "X=" XK 
7 = 3®@ FORY=iTO2 
Notice the comma in Line 40 PRINTs "Y=" ¥ 


i i 
53Q@ NEXT Y¥ 


40. Try it without the com- 
ma. The comma makes ‘‘Y 


= ' Y print on the next 62 NEXT * 
column. : . 
Run it. This should be on your screen: 
x=1 
¥ = i 
Y = = 
X=z2 
Yel 
Y=2 
X=3 
Yel 
Y=? 
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Call ita count within a count or a loop within a loop—whatever you prefer. 
Programmers call this a “nested loop.” This is what the program does: 


i It counts X from 1 to 3. Each time it counts X: 
A. It prints the value of X 
B. It counts Y from 1 to 2. Each time it counts Y: 
1. It prints the value of Y 


Whenever you put a loop inside another loop, you must close the inner 
loop before closing the outer loop: 


Right Wrong 
i@ FORK=1T03 1@ FORX=i1T03 
20 FORY=1T0O2 2®@ FORY=17T02 
30 NEXT Y 30 NEXT xX 
40 NEXT K 4® NEXT ‘¥ 


Making a Clock 


With these tools, you can make the computer do much more. Type this: 
120 FORS=@T059 
20 PRINTS 

y 30 SOUND 150; 2 

yf 40 FORT = 170 390 
5Q@ NEXT T 


6@ NEXTS 
70 PRINT “i MINUTE IS UP" 


Run the program. This is what it does: 
It counts the seconds from 0 to 59. Each time it counts one second: 
A. It prints the second. 
B. It sounds a tone. 
C. It pauses long enough for one second to pass. 


When it finishes counting all the seconds from 0 to 59, it prints a 
message that one minute is up. 
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ey 


By adding this line, 120 
GOTO 10, the clock will run 
perpetually. 


Having a tough time with 
this program? Skip it for 
now. It'll seem easy later. 
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There’s a way to make this program look better. Add this line to clear the 
screen: 


15 CLS 
Now run the program. This time the computer goes through these steps: 


I. It counts the seconds from 0 to 59 (Lines 10 and 60). Each time it 
counts one second: 


A. It clears the screen (Line 15). 

B. It prints the second (Line 20). 

C. It sounds a tone (Line 30). 

D. It pauses long enough for one second to pass (Lines 40 and 50). 


ll. | When it finishes counting all the seconds from 0 to 59, it prints a 
message that one minute has passed (Line 70). 


Using this as groundwork, it’s easy to make a full-fledged clock: 
10 FORH=9@TO 23 
2@ FORM=9#T059 
30 FORS=@T0O59 
48 CLS 
5Q@ PRINTH":"M":"S 
6@ SOUND 15@;2 

ae FORT =170375 
8@ NEXT T 
90 NEXTS 
192 NEXT M 
11@ NEXT H 


Here’s an outline of what the computer does in this program: 


I. It counts the hours from 0 to 23 (Line 10). Each time it counts a new 
hour: 


A. It counts the minutes from 0 to 59 (Line 20). Each time it counts a 
new minute: 


1. It counts the seconds from 0 to 59 (Lines 30 and 90). Each 
time it counts a new second: 


It clears the screen (Line 40). 

It prints the hour, minute, and second (Line 50). 

It sounds a tone (Line 60). 

It pauses long enough for one second to pass (Lines 70 
and 80). 


2. When it finishes counting all the 59 seconds, it goes back to 
Line 20 for the next minute (Line 100). 


a0 Te 


B. When it finishes counting all the 59 minutes, it goes back to Line 
10 for the next hour (Line 110). 


Il. | When it finishes counting all the hours (0-23), the program ends. 


DO-IT-YOURSELF PROGRAM 5-1 


Between Lines 90 and 100 you can add some tones that will sound 
each minute: Write a program that does this. 


DO-IT-YOURSELF PROGRAM 5-2 


Write a program that makes your computer show each of its nine 
colors for 1 second each. 


The answers to both programs are in the back. 


For a Computer, It Sings Great! 


Now, to teach your computer to sing... 


Flip to the Appendix. There’s a table, ““Musical Tones,” that gives the 
computer’s tone number for each note in the musical scale. The tone 
number, for example, for middle C is 89. 


Unfortunately, the computer’s tones can’t exactly match most of the notes. 
That's why it sings somewhat off key . . . But to those without perfect pitch, 
it’s still very close to music. 


Type this: 


20@ SOUND 125; 8 
3@ SQUND 108;8 
4@ SOUND 89;8 


Run the program. It’s the first three notes of . . . well, you know that. Great 
piece! 


To get these first three notes to play over again, put a FOR/NEXT loop in the 
program: 

i@ FORK=1i17T02 

20 SOUND 125; 8 

30 SOUND 108; 8 

40 SOUND 89;8 

5Q NEXT XK 


Now run the program again. It’s missing a pause, isn’t it? This is easy 
enough to add. Type these lines: 


44 FORY=170 238 
46 NEXT Y 


Then run the program again. Now it’s starting to sound like the real thing! 


Here’s a program that gets through the first two phrases: 
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Are your programs getting 
too long to list? Try this: LIST 
10-48 (ENTER). Only the first 


half of this program will be 
listed. 


THREE BLIND MICE 


i@ FORX=i17T02 
e SOUND 125, 8 
30 SOUND 108; 8 
4@ SOUND 89>8 


FOR Y= 170 2308 
NEXT ¥ 

5@ NEXT x 

6@ FORX=1i1T02 
78 SOUND 147;8 
88 SOUND 133; 4 
98 SOUND 133; 4 
SOUND 125, 8 
FOR Y = 170 230 
NEXT ¥ 

130 NEXT & 


“Three” 
“blind” 
“mice” 


(pause) 


Finish the song if you like. Or write a better one. A good computer song 


helps jazz up any program. 


BASIC WORD 
CLS Nested Loops 


Learned in Chapter 5 
PROGRAMMING CONCEPT 


Notes 
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CHAPTER 6 


DECISIONS, DECISIONS... 


Here’s an easy decision for the computer: 


. If you type “‘red’’ . .. then make the screen red 
er 
: If you type “blue” ... then make the screen blue 


Easy enough? Then have the computer do it. Type this program: 


10 PRINT "DO YOU WANT THE SCREEN RED OR BLUE?" 
20 INPUT C% 


? 308 IFC# = "RED" THEN 10¢@ 
1) 40 IF C# = "BLUE" THEN 200 Dene end Bibs 
y 100 CLS(4) arrows or the spaces be- 
tween program lines. We 
y ee =e just put them in to illustrate 
% 200 CLS(3) the flow of the program. 


A DOES NOT 
| 


© 


Run the program a few times. Try both ‘‘red” and “‘blue’”’ as answers. 
This is what the program does: 

lf you answer “‘red’’... then... 

1. Line 30 sends the computer to Line 100. 

2. Line 100 turns your screen red. 


3. Line 110 ends the program. (If the computer gets to Line 110, it never 
makes it to 200.) 


... On the other hand... 
if you answer “blue’”’ ... then... 
1. Line 40 sends the computer to Line 200. 
2. Line 200 turns your screen blue. 


3. Since Line 200 is the last line in the program, the program ends there. 
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What happens if you answer with something different from “red’’ or 
“blue’? Run the program again. This time, answer ‘‘green.”’ 


This makes the screen red. Do you know why? 


HINT: If the condition is not true, the computer ignores the THEN part 
of the line and proceeds to the next program line. 


PROGRAMMING EXERCISE 


There's a way to get this program to reject any answer but “red’’ or 
“blue.” These are the two lines to add. You figure out where they go in 
the program: 


_... PRINT “YOU MUST TYPE EITHER RED OR BLUE” 
....GOTO 20 


Insert the line numbers. 


HINT: The lines must come after the computer has had a chance to test 
your answer for “‘red’’ or ‘“‘blue.” 


The lines must come before the computer makes your screen 
“red.” 


Answer: The lines need to come after Line 40 and before Line 100: 


50 PRINT "YOU MUST TYPE EITHER RED OR BLUE" 
68 GOTO 208 


HINT: 


DO-IT-YOURSELF PROGRAM 6-1 


After the computer turns the screen red or blue, have it go back and ask 
you to type “red” or “blue” again. 


HINT: You need to change Line 110 and add Line 210. 


Here’s a diagram of how we wrote this program. 


1@ PRINT "DO YOU WANT THE SCREEN RED OR BLUE?" 

2Q INPUT CS 

30 IF C# = "RED" THEN 100 CA. 
.3t 40 IF C% = "BLUE" THEN 200 4 
rh) 5Q PRINT "YOU MUST TYPE EITHER RED OR BLUE' 

68 GOTO 2@ 

100 CLS(4) 

11®@ GOTO10 

200 CLS(3) 

210 GOTO10 


Trace the path the computer takes through this program. Go from one line 
to the next; follow the arrows where indicated. Notice the difference 
between the arrows going from the IF/THEN and the GOTO lines. 
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RULES ON IF/THEN AND GOTO 
IF/THEN is conditional. The computer ‘‘branches” only if the condi- 


tion is true. 


GOTO is unconditional. The computer always branches. 


Although this chapter is short, you’ve learned an important programming 
concept. You'll have the computer make decisions all through this book. 


Learned in Chapter 6 
BASIC WORDS 


IF/THEN 
END 


Notes 
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CHAPTER 7 


GAMES OF CHANCE 


38 


To make the computer 
pause while running the 
program, press the 
and keys at the same 


time. Press any key to 
continue. 


Thanks to a BASIC word called RND, the computer can play almost any 
game of chance. 


And even if you don’t want to play computer games, you'll want to learn 
two words this chapter introduces: RND and PRINT @. You'll also find in 
this chapter some more uses of IF/THEN. 
Type this program: 

1@ PRINT RND(1®@) 


Run it. The computer just picked a random number from 1 to 10. Run it 
some more times... 


It’s as if the computer is drawing a number from 1 to 10 out of a hat. The 
number it picks is unpredictable. 


Type and run this next program. Press (BREAK) when you satisfy yourself 
that the numbers are random. 


1@ PRINT RND(1@)3 
20@ GOTO 1a 


To get random numbers from 1 to 100, change Line 10 and run the 
program. 


1@ PRINT RND(100)3 
How can you change the program to get random numbers trom | to 255? 
The answer is: 


1@ PRINT RND(255) 5 


A Random Show 


Just for fun, have the computer compose a song made up of random tones. 
Type: 
108 T=RND(255) 


20 SOUND T;1 
30 GOTO 10 


Run it. Great music, eh? Press (BREAK) when you've heard enough. 


DO-IT-YOURSELF PROGRAM 7-1 


Add some lines to make the computer show a random color (1-8) just 
before it sounds each random tone. 


Here’s our program: 


1@ T=RND(255) 
14 C= RND(8) 
16 CLS(C) 

2@ SOUND T;1 
38 GOTO ia 


We have a few simple games in this chapter. Feel free to use your imagina- 
tion to add interest to them—or invent your own. 


Russian Roulette 


In this game, a gun has 10 chambers. The computer picks, at random, 
which of the 10 chambers has the fatal bullet. Type: 


1@ PRINT "CHOOSE YOUR CHAMBER(1-10)" 
20 INPUT & 

30 IF X = RND(1@) THEN 100 

40 SOUND 200; 1 

5@ PRINT "--CLICK--" 

6@ GOTO 10 


100 PRINT "BANG--YOU’RE DEAD" 


First, in Line 20, the player inputs X (a number from 1 to 10). Then, the 
computer compares X with RND(10) (a random number from 1 to 10). 


Then it follows the “‘arrows’’: 


° If X is equal to RND(10), the computer goes to Line 100, the ‘dead 
routine.” 


° If X is not equal to RND(10), the computer “‘clicks’”’ and goes back to 
Line 10, where you get another chance... 


Make the dead routine in Line 100 better. Type: 


1@0@ FORT =133 701 STEP -5 

11@ PRINT" BANG! I /11" 

12@ SOUND T;: 1 

132 NEXT T 

148 CLS 

150 PRINT @ 230+ "SORRY + YOU’RE DEAD" 
16@ SOUND i+ 58 

170 PRINT @ 390, "NEXT VICTIMs PLEASE" 


Run the program. Here’s what the routine does: 


“ines 100-130 make the computer sound descending tones and print 


Remember always to type 
NEW CENTER) before entering 
a new program. 


Remember how to list part of 
a program? LIST 50-130 
lists the program’s middle 
part. 


Try this when listing a long 
program: At the start of the 
listing, press GHIFT) and @). 
This causes the listing to 
pause. Then press any key to 
continue. 
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Line 140 clears the screen. Since no color is given, the computer makes the 
screen green. 


Lines 150 and 170 use a new word—PRINT @—to position two messages 
on your screen: SORRY, YOU’RE DEAD and NEXT VICTIM, PLEASE. 


The grid below shows the 511 positions on your screen. Line 150 prints 
SORRY, YOU’RE DEAD at position 230 (224 + 6). Line 170 prints NEXT 
VICTIM, PLEASE at position 390 (384 + 6). 


The grid is in the Appendix, 
“PRINT @ Screen Loca- 
tions.” Use it to plan your 


programs’ screen formats. DO-IT-YOURSELF PROGRAM 7-2 


Change this program so that if the player does manage to stay alive for 
10 clicks, the computer pronounces the player the winner, printing 
this message on the screen: 


GRGGGGED 
= Geeeeeeeeeaaa 
HERES 
i as eA 


HINT: You can use the FOR/NEXT loop, so that the computer can 
keep count of the number of clicks. 


Our answer is in the Appendix. 


Rolling the Dice 


This game has the computer roll two dice. To do this, it must come up with 
two random numbers. Type: 


40 


@) 
Ss 
—< 
nonou 
al 
= 
Oo 
on 


me 4 

52 PRINT @ 200, X 

60 PRINT @214;,Y 

PRINT @ 394+ "YOU ROLLED A" R 

PRINT @ 454+ "DO YOU WANT ANOTHER ROLL?" 
92 INPUT A$ 

100 IF A= "YES" THEN 1@ 


Run the program. 


“yes ~*~ 
pb] 
s 
a 


4 = 
on 
ss 


Line 10 clears the screen. 


Line 20 picks a random number from 1 to 6 for one die. Line 30 picks a 
random number for the other die. 


Line 40 adds the two dice to get the total roll. 
Lines 50-70 print the results of the roll. 


Line 90 lets you input whether you want another roll. If you answer ‘‘yes,”’ 
the program goes to Line 10 and runs again. Otherwise, since this is the last 
line in the program, the program ends. 


DO-IT-YOURSELF PROGRAM 7-3 


Since you know how to roll dice, it should be easy to write a ‘’Craps”’ 
program. These are the rules of the game (in its simplest form): 


1. The player rolls two dice. If the first roll’s a 2 (“snake eyes’’), a 3 
(“cock-eyes”’), or a 12 (“boxcars’’), the player loses and the game's 
over. 


. If the first roll’s a 7 or 11 (“a natural’), the player wins and the 
game’s over. 


. If the first roll’s any other number, it becomes the player's ‘‘point.”’ 
The player must keep rolling until either “making the point’ by 
getting the same number again to win, or rolling a 7, and losing. 


You already know more than enough to write this program. Do it. 
Make the computer print it in an attractive format on your screen and 
keep the player informed about what is happening. It may take you a 
while to finish, but give it your best. Good luck! 


Our answer's in the back. 


Learned in Chapter 7 
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Are your programs getting 
long? If you have a cassette 
recorder, read your comput- 
er’s introduction manual to 
learn how to save your pro- 


grams on tape. If you have a 
Deluxe Color Computer, 
you can also save programs 
in memory. See your intro- 
duction manual to learn 
how. 


CHAPTER 8 


SCHOOL DAYS 


Your computer is a natural at teaching. It’s patient, tireless, and never 
makes a mistake. Depending on the programmer (you, of course), it also 
can be imaginative, consoling, and enthusiastic. 


Using RND, have it teach you math. Type: 


i@ CLS 

20 x = RND(15) 

30 Y = RND(15) 

4@ PRINT “WHAT IS" X "#" ¥ "UP" 
45 INPUT A 


50 IF A=X * ¥ THEN 9O 


6@ PRINT "THE ANSWER IS" K¥Y 
70 PRINT "BETTER LUCK NEXT TIME" 
Bd GOTO 1a 


9@ PRINT "CORRECT!!!" 


100 PRINT "PRESS <ENTER? WHEN READY FOR 
ANOTHER" 

105 INPUT A% 

110@ GOTO 190 


The above program drills you on the multiplication tables, from 1 to 15, 
and checks your answers. 


Aa Bb Cc Dd ahs Gg Hh Ti Jj Kk LI Mm Nn Oo 


DO-IT-YOURSELF PROGRAM 8-1 


Make the program drill you on addition problems from 1 to 100. 


Here are the lines we changed: 


20 XX = RND(100) 

30 Y = RND( 18d) 

4@ PRINT "WHAT IS" KX "+" ¥ 

45 INPUT A 

5Q@ IF A=X+Y THEN 9O 

6@ PRINT "THE ANSWER IS" K+ Y¥ 


Make the program more interesting. Have it keep a running total of all the 
correct answers. Type: 


iS T=T+1 

95 Ce#C+1 

98 PRINT "THAT IS" C "CORRECT OUT OF" T 
"ANSWERS" 


T is a “counter.’”’ It counts how many questions you’re asked. When you 
first start the program, T equals zero. Then each time the computer gets to 


Line 15, it adds 1 to T. When you first turn on the 
computer, all numeric vari- 


Cis also a counter. It counts your correct answers. Since C’s in Line 95, the | ables equal 0. When you 

computer doesn’t increase C unless your answer's correct. type NEW (ENTER), all 
numeric variables also 
equal 0. 


DO-IT-YOURSELF PROGRAM 8-2 
Make the program more fun. Have it do one or more of the following: 
. Call you by name. 
. Reward your correct answer with a sound and light show. 


. Print the problem and messages attractively on your screen. (Use 
PRINT @ for this.) 


. Keep a running total of the percentage of correct answers. 


. End the program if you get 10 answers in a row correct. 


Use your imagination. We have a program in back that does this all. 


First, Build Your Computer’s 
Vocabulary .. . 
To build your computer's vocabulary (so that it can build yours!), type and 
run this program: 


1@ DATA APPLES» ORANGES» PEARS 
20 FORX=17T703 

30 READ FS 

4Q@ NEXT & 


What happened . . . nothing? Nothing that you can see, that is. To see what 
he computer is doing, add this line and run the program: 


35 PRINT "F# =i" FS 
Line 30 tells the computer to: 
Look for a DATA line. 
2. READ the first item in the list—APPLES. 
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3. | Give APPLES an F$ label. 

4. “Cross out’’ APPLES. 

The second time the computer gets to Line 30 it is told to do the same: 
1. Look for a DATA line. 

2. READ the first item—this time, it’s ORANGES. 

3. Give ORANGES the F$ label. 

4. “Cross out’” ORANGES. 


When you run the program, this happens in the computer’s memory: 


YOUR COMPUTER ’S MEMORY 
1 F$——— APPLES 
2 ORANGES 
3 PEARS 


What if you want the Computer to read the same list again? It’s already 
“crossed out’’ all the data... Type: 


6@ GOTO 19 


Run the program. You get an error: 70D ERROR IN 30. OD means “‘out of 
data.” The computer’s crossed out all the data. 


Type this line and run the program: 
5@ RESTORE 


Now it’s as if the computer never crossed out any data. It reads the same list 
again and again. 


You can put DATA lines wherever you want in the program. Run each of 
these programs. They all work the same. 


Remember how to make the 
computer pause while run- 
ning a program? Press 
to pause and any 
key to get it to continue. 


12 DATA APPLES» ORANGES 
20 DATA PEARS 

30 FORK=1i1T03 

4@ READ FS 

5Q@ PRINT "FS = 2" FS 

6@ NEXT xX 


1@ DATA APPLES 

2@ DATA ORANGES 

3@ FORX=iTO3 

408 READ FS 

5@ PRINT "F$ = :" FS 
62 NEXT X 
DATA PEARS 


FORX=1703 


FORK =17T03 


40 READ FS 42 READ F% 

5Q@ PRINT "FS = :" FS 50 PRINT "F# = :" FS 

62 NEXT & 62 NEXT XK 

7@ DATA APPLES 70 DATA APPLES» ORANGES» 
82 DATA ORANGES PEARS 


9@ DATA PEARS 


Now Have It Build Your Vocabulary 


Here are some words and definitions to learn: 
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Words Definitions 


1@ DATA TACITURN+ HABITUALLY UNTALKATIVE 

20 DATALOQUACIOUS: VERY TALKATIVE 

32 DATA VOCIFEROUS,» LOUD AND YVEHEMENT 

40 DATA TERSE» CONCISE 

5@ DATA EFFUSIVEs DEMONSTRATIVE OR GUSHY 
Now get the computer to select one of these words at random. Hmmm. . . 
there are ten items. Maybe this works: 

60 N= RND(10) 

70 FORX=1TON 

82 READ A¢ 

90 NEXT X 

100 PRINT "THE RANDOM WORD IS:" AS% 


Run the program a few times. It doesn’t work quite right. The computer's 
just as likely to stop at a definition as at a word. 


What the computer really needs to do is pick a random word only from 
items 1, 3, 5, 7, or 9. Fortunately, BASIC has a word that helps with this. 
Type: 


65 IF INT(N/2) = N/2 THENN=N-1 
Now run the program a few times again. This time, it should work. 


INT tells the computer to look at only the “whole part’ of the number and 
ignore the decimal part. For instance, the computer sees INT(3.9) as 3. 


Assume N, the random number, is 10. The IF clause in Line 65 does this: 


INT(10/2) = 10/2 
INT(S) = 5 
5=5 


The above is true: 5 does equal 5. Since it’s true, the computer completes 
the THEN clause. N is adjusted to equal 9 (10 - 1). 


Now assume N, the random number, is 9. The IF clause in Line 65 does 


mus: 
INT(9/2) = 9/2 
INT(4.5) = 4.5 
4=4,5 


The above is not true: 4 does not equal 4.5. Since it’s not true, the computer 
doesn’t complete the THEN clause. N remains 9. 


3esides reading a random word, the computer also must read the word’s 
definition. Add these lines to the end of the program: 


110 READ BS 
i120 PRINT "THE DEFINITIONIS:" BS 
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If you like, add some more 
words and definitions by 
adding DATA lines. 


For variations on this pro- 
gram, you might try states 


and capitals, cities and 
countries, foreign words and 
meanings. 


Now run the program a few times. 


Have the computer print one random word and definition after the next. 
Add this to the start of the program: 


5 CLEAR 180 


This reserves plenty of ‘‘string space.’’ Add these lines to the end of the 
program: 


13@ RESTORE 
140 GOTO Ge 


This lets the computer pick a new random word and its definition from a 
“restored” group of data items. 


Here’s how the program now looks: 
> CLEAR 100 


1@ DATA TACITURN»s HABITUALLY UNTALKATIVE 
2 DATA LOQUACIOUS» VERY TALKATIVE 
30 DATA VOCIFEROUS» LOUD AND VEHEMENT 
40 DATA TERSE+ CONCISE 
5@ DATA EFFUSIVE+s DEMONSTRATIVE OR GUSHY 
6@ N= RND(10) 
65 IF INT(N/2) = N/2 THENN=N- 1 
70 ‘FORX=1TON 
(eo READ A$ 
92 NEXT X 
100 PRINT “A RANDOM WORD IS :" A$ 
11@ READ BS 
120 PRINT "ITS DEFINITION IS :" BS 
130 RESTORE 
140 GOTO Ge 


DO-IT-YOURSELF PROGRAM 8-3 
Want to complete this program? Program it so that the computer: 
1. Prints the definition only. 
. Asks you for the word. 


. Compares the word with the correct random word. 


. Tells you if your answer is correct. If your answer is incorrect, prints 
the correct word. 


Here’s our program: 


5 CLEAR 500 

12 DATA TACITURN» HABITUALLY UNTALKATIVE 
20 DATA LOQUACIOUS» VERY TALKATIVE 

30 DATA VOCIFEROUS,» LOUD AND VEHEMENT 

40 DATA TERSE,» CONCISE Feel free to add frills such as 
50 DATA EFFUSIVE: DEMONSTRATIVE OR GUSHY a good-looking screen for- 
6@ N= RND(10) mat or sound. 

65 IF INT(N/2) = N/2 THENN=N- 1 

70 FORK=i1TON 

8a READ A& 

90° NEXT X 

11@ READ BS 

120 PRINT "WHAT WORD MEANS :" BS 

130 RESTORE 

140 INPUT R$ 

150 IF R$ = A$ THEN 1990 

160 PRINT "WRONG" 

170 PRINT "THE CORRECT WORD IS :" A&% 

180 GOTO 6@ 

190 PRINT "CORRECT" 

200 GOTO G@ 


Learned in Chapter 8 
BASIC WORDS 
DATA 


READ 
RESTORE 
INT 
CLEAR 


Notes 
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CHAPTER 9 


ARITHMETIC 
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Solving long math problems fast and accurately is a task your computer 
does with ease. Before typing long, difficult formulas, though, there're 
some shortcuts you'll want to use. 


An easy way to handle complicated math formulas is with ‘subroutines. 
Type and run this program: 


1Q PRINT "EXECUTING THE MAIN PROGRAM" 


2 GOSUB 500 
30 PRINT "NOW BACK IN THE MAIN PROGRAM" 


4@ END 


500 PRINT "EXECUTING THE SUBROUTINE" 
51@ RETURN 


Ax (BY + C) - D+ E(G/W) - F 


GOSUB 500 tells the computer to go to the subroutine that starts at Line 
500. RETURN tells the computer to return to the BASIC word that im- 
mediately follows GOSUB. 


Delete Line 40 and see what happens when you run the program. 


If you did this, your screen shows this: 


EXECUTING THE MAIN PROGRAM 
EXECUTING THE SUBROUTINE 
NOW BACK IN THE MAIN PROGRAM 
EXECUTING THE SUBROUTINE 
?RG ERROR IN 518 


RG means “RETURN without GOSUB.” Do you see why deleting END in 
Line 40 causes this error? 


At first, the program runs just as it did before. It goes to the subroutine in 
Line 500 and then returns to the PRINT line that immediately follows 
GOSUB. 


Then, since you deleted END, it goes to the next line—the subroutine in 
Line 500. This time, though, it doesn’t know where to return. This is 
because it’s merely “dropping” into the subroutine; it is not being sent to 
the subroutine by a GOSUB line. 


This subroutine raises a number to any power: 


1@ INPUT "TYPE A NUMBER"; N 
20 INPUT "TYPE THE POWER YOU WANT IT RAISED 


TO"3 P - 
30 COSUB 2000 See something different 
4®@ PRINT : PRINT N "TO THE POWER OF" P"IS"E pape os ea elon 
50 GOTO 19 sage before waiting for your 
2900 REM FORMULA FOR RAISING A NUMBER TOA input. 
POWER 
2010 E=1 


2020 FOR > 

2030 E=E*N 

20408 NEXT X 

2050 IF P= @THENE = i 
2060 RETURN 


Also introduced in this program are: 


: The colon (:), in Line 40. You can combine program lines using the 
colon to separate them. Line 40 contains the two lines: PRINT and 
PRINT N “TO THE” P ‘/POWER IS” E. 


. REM, in Line 2000. REM means nothing to the computer. Put REM ; 
lines wherever you want in your program to help you remember, PN Eee 
what the program does; they make no difference in the way the e e i 


program works. To see for yourself, add these lines and run the 

program: 

5 REM THIS IS A PECULIAR PROGRAM»: 

17 REM WILL THIS LINE CHANGE THE PROGRAM? 

45 REM THE NEXT LINE KEEPS THE SUBPROGRAM 
SEPARATED 


DO-IT-YOURSELF PROGRAM 9-1 


Change the above program so that the computer prints a table of 


squares (a number to the power of 2) for numbers, say, from 2 to 10. 


The answer's in the back. 


Give the Computer a Little Help 


As math formulas get more complex, your computer needs help under- 
standing them. For example, what if you want the computer to solve this 
problem: 


Divide the sum of 13 + 3 by 8 
You may want the computer to arrive at the answer this way: 
13 + 3/8 = 16/8 = 2 


But, instead, the computer arrives at another answer. Type this command 
line and see: 


PRINT 13 + 3 / 8 (ENTER 
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An “operation” is a problem 


you want the computer to 
solve. Here the operations 
are addition, subtraction, 
multiplication, and division. 


The computer solves problems logically, using its own rules: 


RULES ON ARITHMETIC 


The computer solves arithmetic problems in this order: 


. First, it solves any multiplication and division operations. 
. Last, it solves addition and subtraction operations. 


. If there’s a tie (that is, more than one multiplication/division or 
addition/subtraction operation), it solves the operations from left to 
right. 


In the problem above, the computer follows its rules: 
. First, it does the division (3/8 = .375) 
+ Then, it does the addition (13 + .375 = 13.375) 


For the computer to solve the problem differently, you need to use paren- 
theses. Type this line: 
PRINT (13 +3) / 8 (ENTER 


Whenever the computer sees an operation in parentheses, it solves that 
operation before solving any others. 


COMPUTER MATH EXERCISE 


What do you think the computer will print as the answers to each of 
these problems? 


PRINT 10- (5-1) /2 


PRINT 10-S5-1/2 
PRINT (10-5 -1) / 
PRINT (10-5) -1/2 
PRINT 10- (5-1/2) 


Finished? Type each of the command lines to check your answers. 
What if you want the computer to solve this problem? 

Divide 10 minus the difference of 5 minus 1 by 2 
You're actually asking the computer to do this: 

(10 -(5-1))/2 


When the computer sees a problem with more than one set of parentheses, 
though, it solves the inside parentheses and then moves to the outside 
parentheses. In other words, it does this: 


(LO.— (@ = Tv? 


hs wc aeg 


18 — 4372 


RULES ON PARENTHESES 


. The computer solves operations enclosed in parentheses first, be- 
fore solving any others. 


. The computer solves the innermost parentheses first. It then works 
its way out. 


COMPUTER MATH EXERCISE 


Insert parentheses in the problem below so that the computer prints 28 
as the answer: 


PRINT 30-9-8-7-6 


Answer: 
PRINT 38 - (9 - (8 - (7 -6))) 


Saving Routines 


The program below uses two subroutines. It’s for those of you who save by 
gutting the same amount of money in the bank each month: 


1@ INPUT "YOUR MONTHLY DEPOSIT": D 

20 INPUT "BANK ’S ANNUAL INTEREST RATE" I 
30 IT=/i2* .@l 

40 INPUT "NUMBER OF DEPOSITS" P 

2@ GOSUB 1000 

6@ PRINT "YOU WILL HAVE $" FY "IN" P "MONTHS" 
70 END 


1000 REM COMPOUND MONTHLY INTEREST FORMULA 
1@i@ N=i+t+tI 

1020 GOSUB 2000 

1930 FY=D#* ((E-1)/1) 

1040 RETURN 


2000 REM FORMULA FOR RAISING A NUMBER TOA 
POWER 

2010 El 

2020 FORX=i1TOP 

2030 E=E%N 

2040 NEXT & 

2050 IF P= @THENE = 1 

2060 RETURN 
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Notice that one subroutine ‘calls’ another. This is fine with the computer 
as long as: 


there’s a GOSUB to send the computer to each subroutine, and 
. there’s a RETURN at the end of each subroutine. 


Turn to the Appendix, ‘‘Subroutines.’” You'll find useful math subroutines 
you can add to your programs. 


Learned in Chapter 9 


BASIC WORDS BASIC SYMBOLS BASIC CONCEPTS 
GOSUB 
RETURN 
REM 


( ) Order of operations 


Notes 


CHAPTER 10 


A GIFT WITH WORDS 


A great skill of the computer is its gift with words. It can tirelessly twist and Not impressed? Later, we'll 
combine words any way you want. With this gift, you can get it to read, 
write, and even talk. 


show practical uses of this 
unusual skill. 


Combining Words 


Type and run this program: 


1@ PRINT "TYPE A SENTENCE" 

20 INPUT 5% 

30 PRINT "YOUR SENTENCE HAS " LEN(S$) " 
CHARACTERS" 

4Q@ INPUT "WANT TO TRY ANOTHER?" 5 AS 

5@ IF A#$= "YES" THEN 190 


Impressed? LEN(S$) computes the length of string $$—your sentence. The 
computer counts each character in the sentence, including spaces and 
punctuation marks. 


Erase the program and run this, which composes a poem (of sorts): 


102 A¢*= "A ROSE" 

20 Bee" " 

30 CH= "IS AROSE" 

40 D$=BS+CS 

5@ Es = "AND SO FORTH AND SO ON" 
6@ Fe =A$+D$+D$+BS+ ES 


70 PRINT FS 


Here the plus sign (+) combines strings. For example, D$ (“IS A ROSE”’) is 
a combination of B$ + C$. 


There are two problems you may encounter when combining strings. Add You Will gor ws oe 

the following line and run the program. It shows both problems: ror if you have not started 

_ your computer since you 

80 Gt=Fe+Fe + FS + FS + FS + FS + FS ran the program from 

' : ate. a . ee Chapter 8 with the 
When the computer gets to Line 80, it prints the first problem with this line: sLeae cae 


20S ERROR IN 80 (‘‘out of string space”’). 
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On startup, the computer reserves only 200 characters of space for work- 
ing with strings. Line 80 asks it to work with 343 characters. To reserve 
room for this many characters and more (up to 500), add this line to the 
start of the program and run: 


3S CLEAR 580 


Now when the computer gets to Line 80, it has enough string space, but 
prints the second problem with this line: 2LS ERROR IN 80 (“string too 


long”). 


A string can contain no more than 255 characters. When storing more than 
255 characters, you need to put these characters into several strings. 


Twisting Words 


Now that you can combine strings, try to take a string apart. Type and run 
this program: 


10 INPUT "TYPE AWORD"$ WS 

20 PRINT "THE FIRSTLETTER 1S: " LEFT (W$+1) 

30 PRINT "THELAST 2 LETTERS ARE : " RIGHTS 
(WH +2) 

40 GOTO 1a 


Here’s how the program works: 
In Line 10 you input string W$. Assume the string is MACHINE: 
COMPUTER MEMORY 
Ws— MACHINE 


In Lines 20 and 30, the computer computes the first /eft letter and the last 
two right letters of the string: 


MACHINE 
LEFT# (W$ +i) RIGHTS (W$+2) 


Run the program a few more times to see how it works. 
Now add this line to the program: 
5S CLEAR 300 


so that your computer will set aside plenty of space for working with 
strings. Run the program again. This time input a sentence rather than a 
word. 


PROGRAMMING EXERCISE 


How would you change Lines 20 and 30 so that the computer will give 
you the first 5 letters and the last 6 letters of your string? 


20 
30 


Answers: 


20 PRINT "THE FIRST FIVE LETTERS ARE :" LEFT$ 
(WS 55) 


30 PRINT "THE LAST SIX LETTERS ARE :" RIGHTS 
(WS +G) 


Erase your program and type this one: 


10 CLEAR 500 Remember how to erase a 
20 INPUT "TYPE A SENTENCE" S$ eggs 


30 PRINT "TYPE A NUMBER FROM 1 TO " LEN(S#) 

40 INPUT & 

5@ PRINT "THE MIDSTRING WILL BEGIN WITH 
CHARACTER " XK 

62 PRINT "TYPE A NUMBER FROM 1 TO" LEN(S$) - X 
#1 

70 INPUT ¥ 

80 PRINT "THE MIDSTRING WILL BE" ¥ 
"CHARACTERS LONG" 

90 PRINT "THIS MIDSTRING IS :" MIDS(S$sks¥) 

100 GOTO 20 


Run this program a few times to see if you can deduce how MID$ works. 
Here’s how the program works: 

In Line 20, assume you input HERE IS A STRING: 
YOUR COMPUTER ’S MEMORY 
S$$¢—— HERE IS A STRING 


in Line 30, the computer first computes the length of S$, which is 16 
characters. It then asks you to choose a number from 1 to 16. Assume you 
choose 6. 


in Line 60, the computer asks you to choose another number from 1 to 12 
(16-6+1). Assume you choose 4. 


YOUR COMPUTER ’S MEMORY 


in Line 90, the computer gives you a “mid-string”’ of S$ that starts at the 6th 
character and is four characters long: 


123 4 5 @9gre eid 11 12 13 14 15 16 
HERE Pes A 5 T R I N G 


<+— | ——> 


MID#$(S$ 1G 14) 


You can use this kind of 


For another example of MID, erase the program and run this: program to sort through in- 
uty ue formation. For instance, by 
1@ INPUT "TYPE A SENTENCE"S$ S$ separating strings, you could 
20 INPUT "TYPE A WORD IN THE SENTENCE" $ WS loot ieuah-a mating We 
3@ L=LEN(WS) for TEXAS addresses. 


40 FORK =1TOLEN(S$) 

5Q@ IF MID#(S#+X+L) = WS THEN 9@ 

6@ NEXT x 

70 PRINT "YOUR WORD ISN’T IN THE SENTENCE" 
82 END 

90 PRINT WS "--BEGINS AT CHARACTER NO." & 
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Here’s how the program works: 


In Line 20, assume you input the word IS for W$. In Line 30, the computer 
counts W$’s length: 2 characters. 


YOUR COMPUTER’S MEMORY 
S$—— HERE IS A STRING 


We——~ 15 


° 00 


In Lines 40-90 (the FOR/NEXT loop), the computer counts each character 
in S$, starting with character 1 and ending with character LEN(S$), which 


is 16. 


Each time the computer counts a new character, it looks at a new mid- 
string. Each mid-string starts at character X and is L (2) characters long. 


L——+2 


For example, when X equals 1, the computer looks at this mid-string: 


1 
Hee R E I § A STRING 


{-2- 3 
MID#(S#+1+2) 
The fourth time through the loop, when X equals 4, the computer looks at 
this mid-string: 
4 
HERE IS A STRING 
4-2-5 
MID$(S$ +452) 
When X equals 6, the computer finally finds IS, the mid-string for which it is 
searching. 


NYS 


= 
= 
> 
= 
= 
> 
~ 
S 
~ 
= 
= 
S 
Se; 


MMLHUME MUAY Ut 
ee 


DO-IT-YOURSELF PROGRAM 10-1 
Start with a one-line program: 
10 A$ = “CHANGE A SENTENCE.’ 
Add a line that inserts this to the start of A$: 
IT’S EASY TO 
Add another line that prints the new sentence: 
IT’S EASY TO CHANGE A SENTENCE 


This is our program: 


1@ AS = "CHANGE A SENTENCE." 
20 B= "IT’S EASY TO" 
30 CE=BS+" "+ AS 


4@ PRINT C$ 


DO-IT-YOURSELF PROGRAM 10-2 


Add to the above program to make it: 


* Find the start of this mid-string: 
A SENTENCE 

* Delete the above mid-string to form this new string: 
IT'S EASY TO CHANGE 

* Add these words to the end of the new string: 
ANYTHING YOU WANT 

* Print the newly-formed string: 
IT’S EASY TO CHANGE ANYTHING YOU WANT 


HINT: To form the string IT’S EASY TO CHANGE, you need to get the 
left portion of the string IT’S EASY TO CHANGE A SENTENCE. 


Answer: 

1@ At = "CHANGE A SENTENCE," 

20 B= "IT’S EASY TO" 

30 CH=Be+" "+ As This program is the basis of a 

4Q PRINT C$ “word processing’’ pro- 
ve " u gram—a popular program 

30 Y = LEN ("A SENTENCE") that cuts down typing 

BO FOR X = 1 TOLEN(C$) expenses. 


70 IF MID$ (C$sX+s¥) = "A SENTENCE" THEN 90 


90 DS = LEFT# (C$+x - 1) 
190 E% = D+ "ANYTHING YOU WANT" 
110 PRINT ES 


DO-IT-YOURSELF CHALLENGER PROGRAM 
Write a program that: 
* Asks you to input a sentence. 


* Asks you to input (1) a phrase within the sentence to delete and (2) a 
phrase to replace it. 


* Prints the changed sentence. 


This may take a while, but you have everything you need to write it. 
Our answer's in the back. 
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Learned in Chapter 10 


BASIC WORDS BASIC String OPERATOR 


LEN + 
LEFT$ 
RIGHTS 
MID$ 


~ CHAPTER 11 


A POP QUIZ 


By using a word named INKEY$, you can get the computer to constantly 
“watch,” “time,” or “test’” what you're typing. Type and run this program: 


1@ As = INKEYS 
20 IF A#<3"" GOTO 50 
30 PRINT "YOU PRESSED NOTHING" 


4@ GOTO 10 
5Q@ PRINT "THE KEY YOU PRESSED IS---" A% 


INKEY$ checks to see if you’re pressing a key. It does this in a split second. 
At least the first 20 times it checks, you’ve pressed nothing (‘’”’). 


=. 


Line 10 labels the key you press as A$. Then the computer makes a 
decision: 


. If A$ equals nothing (“ ’’), it prints YOU PRESSED NOTHING and 
goes back to Line 10 to check the keyboard again. 


‘ If A$ equals something (anything but “ ’’), the computer goes to Line 
50 and prints the key. 


Add this line and run the program: 
60 GOTO ia 


No matter how fast you are, the computer is faster! Erase Line 30 to see 
what keys you're pressing. 


An Electronic Piano 
Look again at ‘“Musical Tones”’ in the Appendix. It lists these as the tones 
‘or middle C through the next higher C: 


C- 89 E= 125 G - 147 B - 170 
D - 108 F - 133 A- 159 C- 176 


Remember that < > means 
“not equal to.”’ 


“* is an “empty string’ 
(nothing). 
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Erase memory and type this program: 


10 = INKEY$ 

20 iF as = "" THEN 10 

3@ IF A$= "A" THENT = 89 
40 IF A$ ="S" THENT = 108 
50 IF A#="D" THENT = 125 
6@ IF A$ ="F" THENT = 133 
70 IF A$ = "G" THENT = 147 
8® IF A$ = "H" THENT = 159 
90 IF AS="J" THENT = 170 


100 IF A$ = "K" THEN T = 176 
110 IF T=@THEN 10 

12@ SOUND T:5 

130 T=2@ 

14a GOTO 19 


Run it. Well, what are you waiting for? Play a tune. Type any of the keys on 


How would this change the 
the third row down on your keyboard—from A to K. 


program? 
120 SOUND T+ 
Why will the program not work right if you use INPUT rather than INKEY$! 


Answer: If you use INPUT, the computer waits until you press (ENTER 
before it sees what you type. With INKEY$, it sees everything you type. 


There’s another way of writing this program using READ and DATA lines. 
Do you know how? 


This is what we came up with: 


10 Aé = INKEY$ 

20 FORKX=1i1 708 

30 READ BS+T 

40 IF At = BS THEN SOUND T+5 
5@ NEXT & 

68 RESTORE 

70 GOTO 12 

B® DATAA: 89;+S51108 
90 DATAD: 125% F+ 133 
1@@ DATAG:» 147+H+ 159 
11@ DATA J+ 17@+K+176 
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Beat the Computer 


Type this program: 


1@ kK =RND(4) 

20 Y= RND(4) 

30 PRINT "WHAT IS" KX "+" ¥ 
40 T= 

50 AS = INKEYS 


60 T=T+i 
7@ SOUND 128+1 
80 IF T = 15 THEN 200 


90 IF A% = "" THEN 3508 
100 GOTO 1a 
200 CLS(7) 


210 SOUND 180, 30 
220 PRINT "TOO LATE" 


Here’s how the program works: 


Lines 10, 20, and 30 have the computer print two random numbers and ask 
you for their sum. 


Line 40 sets T to O. T is a timer. 


Line 50 gives you your first chance to answer the question—in a split 
second. 


Line 60 adds 1 to T, the timer. T now equals 1. The next time the computer 
gets to line 60 it again adds 1 to the timer to make T equal 2. Each time the 
computer runs Line 60 it adds 1 to T. 


Line 70’s there just to make you nervous. 


Line 80 tells the computer you have 15 chances to answer. Once T equals 
15, time’s up. The computer insults you with Lines 200, 210, and 220. 


Line 90 says if you haven’t answered yet the computer should go back and 
give you another chance. 


The computer gets to Line 100 only if you do answer. Line 100 sends it 
back for another problem. 


How can you get the computer to give you three times as much time to 
answer each question? 


Answer: 
By changing this line: 
80 IF T = 45 THEN 200 
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Remember the problem of 
mixing strings with num- 
bers? Chapter 2 will refresh 


your memory. 


Checking Your Answers 


How can you get the computer to check to see if your answer is correct? 
Would this work? 


100 IF A$=X + Y THEN 139 

110 PRINT "WRONG"; X "+" Y "=" K+ ¥ 
120 GOTO ia 

13@ PRINT "CORRECT" 

140 GOTO 12 


If you run this program (and answer on time), you'll get this error message: 
7TM ERROR IN 100 


That’s because you can’t make a string (A$) equal to a number (X + Y). You 
somehow must change A$ to a number. 


Change line 100 by typing: 
100 IF YVAL(AS$) = xX + ¥ THEN 138 


VAL(A$) converts A$ into its numeric value. If A$ equals the string “’5,”’ for 
example, VAL(A$) equals the number 5. If VAL(A$) equals the string “C,”’ 
VAL(A$) equals the number 0. (’C’’ has no numeric value.) 


To make the program more challenging, change these lines: 


1@ % =RND(49) +4 

20 Y = RND(49) +4 

90 Bt =BS + AS 

100 IF VAL(BS) = X + Y THEN 130 


Then add these lines: 


45 Bee"" 
95 IF LEN(BS) «3 2 THEN 5@ 


A Computer Typing Test 


Here’s a program that times how fast you type: 


i@ CLS 

20 INPUT "PRESS <ENTER? WHEN READY TO TYPE 
THIS PHRASE" 5 E¢ 

308 PRINT "NOW IS THE TIME FOR ALL GOOD MEN" 


40 T=1 
o@ AS = INKEY 
60 IF A$ = "" THEN 180 


70 PRINT AS3 

80 BS =BS + AS 

90 IF LEN(B#) = 32 THEN 128 
100 T=T+1 

110 GOTO 5a 


120 S=T/74 
130 M=5/60 
140 R=8/M 


15@ PRINT 
16@ PRINT "YOU TYPED AT--"R"--WDS/MIN" 


Line 40 sets T, the timer, to 1. 


Line 50 gives you your first chance to type a key (A$). If you’re not fast 
enough, Line 60 sends the program to Line 100 and adds 1 to the timer. 


Line 70 prints the key you typed. 


Line 80 forms a string named B$. Each time you type a key (AS), the 
program adds this to B$. For example, if the first key you type is ‘’N,”” then: 


At _ al he 
and 
Bt = BS + AF 
BS = mu + Witt 
BS = st la 
if the next key you type is ‘‘O,” then: 
At = ate 
and 
BS = BS + AF 
B= "N" + "QO" 
BS = "NO" 
\f the third key you type is ‘‘W,”’ then: 
At = "ay 
and 
Bt = "NO" + EES 
Bé = "NOW" 


When the length of B$ is 32 (the length of NOW IS THE TIME FOR ALL 
GOOD MEN), the program assumes you’ ve finished typing the phrase and 
zoes to Line 120 to compute your words per minute. 


Lines 120, 130, and 140 compute your typing speed. They divide T by 74 
to get the seconds), S by 60 (to get the minutes). They then divide the eight We could have made this 


words by M to get the words per minute. Caeurasen One Hoey ue 
ing parentheses: 


120 R=8/((T/74)/ 
60) 


Learned in Chapter 11 How abouta variation of this 


program—a speed-reading 


BASIC WORDS test? 


INKEYS 
VAL 
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Notes 


CHAPTER 12 


MORE BASICS 


Before you’re finished with the “‘basics,’’ you need to know a few more 
words. 


The first is STOP. Type and run this program: 


10 A=il 
20 AzAtI1 
30 STOP 
40 A=A*#2 
5@ STOP 
6@ GOTO 20 


The computer starts running the program. When it gets to Line 30, it prints: 


BREAK IN 30 
OK 


You now can type a command line to see what's happening. For example, 
type: 
PRINT A 
The computer prints 2—A’s value when the program’s at Line 30. Now 
type: 
CONT 
The computer continues the program. When it gets to Line 50, it prints: 
BREAK IN 5@ 
Type: 
PRINT A 
This time the computer prints 4—A’s value at Line 50. 


Type CONT again, and the computer breaks again at Line 30. If you have it 
again print A, it prints 5—the value of A at Line 30 the second time through 
the program. 


Inserting STOP lines in your program helps you figure out why it’s not 
working the way you expect. When you fix the program, take the STOP 
lines out. 


For Long Programs... 


Clear memory and type: 


PRINT MEM (ENTER To save memory, you can 

' ae , omit spaces in your program 

The computer prints how much storage space remains in the computer's before and after punctuation 
marks, operators, and BASIC 


memory. 
words. 


When you're typing a long program, you will want to have the computer 
PRINT MEM from time to time to make sure you're not running out of 
memory. 
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Help with Typing 


Type this program: 


1@ INPUT “TYPE 1+ 2+O0R3"5N 
20 ONN GOSUB 100, 200; 300 
30 GOTO 19 


‘ 100 PRINT "YOU TYPED 1" 
= 110 RETURN 


200 PRINT "YOU TYPED 2" 
210 RETURN 


300 PRINT "YOU TYPED 3" 
319 RETURN 


Run it. 
ON ... GOSUB in Line 20 works the same as three lines: 


18 IF N= 1 THEN GOSUB 100 
20 IF N= 2 THEN GOSUB 200 
22 IF N= 3 THEN GOSUB 308 


ON ... GOSUB looks at the line number following ON—in this case N. 


. if N is 1, the computer goes to the subroutine starting at the first line 
number following GOSUB. 


. If N is 2, the computer goes to the subroutine starting at the second 
line number. 


. If N is 3, the computer goes to the subroutine starting at the third line 
number. 


What if N is 42 Since there’s no fourth line number, the computer simply 
goes to the next line in the program. 


Here is a program that uses ON ... GOSUB: 


5S FOR P= 170600: NEXT P 

1@ CLS: KX = RND(100): Y = RND( 100) 
20 PRINT "(1) ADDITION" 

30 PRINT "(2) SUBTRACTION" 

40 PRINT "(3) MULTIPLICATION" 

5Q@ PRINT "(4) DIVISION" 

6@ INPUT "WHICH EXERCISE(1-4)"3 R 


7@ CLS 
82 ONR GOSUB 1800+ 2000, 3000; 4900 
98 GOTOS5 


1080 PRINT "WHAT IS" K "+" ¥ 

1010 INPUT A 

i@20 IF A=X+Y THEN PRINT "CORRECT" ELSE 
PRINT "WRONG" 

19@3@ RETURN 


2000 PRINT "WHAT IS" X "-"¥ 

201@ INPUTA 

2020 IF A= X-Y THEN PRINT "CORRECT" ELSE 
PRINT "WRONG" 

2030 RETURN 


3000 
3010 
3820 


3030 


4000 
4010 
4020 


4030 


Notice the word ELSE in Lines 1020, 2020, 3020, and 4020. You can use 
ELSE if you want the computer to do something special when the condition 


is not true. 


computer prints CORRECT or else it prints WRONG. 


You may useON ... GOTO ina similar way as ON . . . GOSUB. The only 
difference is that ON GOTO sends the computer to another line number 


PRINT "WHAT IS" X "#*" Y 
INPUT A 


IF A = X*¥ THEN PRINT "CORRECT" ELSE 
PRINT "WRONG" 

RETURN 

PRINT "WHAT IS" K"/" ¥ 

INPUT A 


IF A = X/¥ THEN PRINT "CORRECT" ELSE 
PRINT "WRONG" 
RETURN 


In Line 1020, if your answer—A—equals X + Y, then the 


When A does not equal X + 
Y, the condition set up in 
Line 1020 is not true. 


rather than to a subroutine. 


Here’s part 
10 


Do 


Anyone wh 
“or’’—even 


of a program using ON ... GOTO: 


ELS 

PRINT @134+ "(1) CRAZY EIGHTS" 

PRINT @ 166; "(2) 500" 

PRINT @ 198+ "(3) HEARTS" 

PRINT @ 354+ "WHICH DO YOU WANT TO PLAY" 
INPUT A 

CLS 

ON A GOTO 1800, 2000; 3000 


PRINT @ 230+ "CRAZY EIGHTS GAME" 
END 


PRINT @ 236+ "500 GAME" 
END 


PRINT @ 235+ "HEARTS GAME" 
END 


es the Job Say ““AND” or ‘OR’? 


o speaks English knows the difference between “and” and 
your computer. For example, assume there’s a programming 


job opening. The job requires: 


A degree in programming 
AND 
Experience in programming 


Erase memory and type: 


PRINT "DO YOU HAVE--" 

INPUT "A DEGREE IN PROGRAMMING" DS 

INPUT "EXPERIENCE IN PROGRAMMING" ES 

IF DS = "YES" AND E$ = "YES" THEN PRINT "YOU 
HAVE THE JOB" ELSE PRINT "SORRY + WE CAN‘T 
HIRE YOU" 

GOTO i@ 
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Run the program. You may answer the questions this way: 


DO YOU HAVE -- 

A DEGREE IN PROGRAMMING? NO 
EXPERIENCE IN PROGRAMMING? YES 
SORRY + WE CAN’T HIRE YOU 


Now, assume the requirements change so that ‘or’ becomes “and.” The 
job now requires: 


A degree in programming 
OR 


Experience in programming 
To make this change in the program type: 


40 IF DS = "YES" OR ES = "YES" THEN PRINT 
"YOU’VE GOT THE JOB" ELSE PRINT "SORRY: WE 
CAN’T HIRE YOU" 


Run the program and see what a difference AND and OR makes: 


DO YOU HAVE-- 

A DEGREE IN PROGRAMMING? NO 
EXPERIENCE IN PROGRAMMING? YES 
YOU HAVE THE JOB 


More Arithmetic 
These words can save many program lines: 


SGN 
SGN tells you whether a number is positive, negative, or zero: 


1@ INPUT "TYPE A NUMBER" 3 XK 

20 IF SGN(X) = 1 THEN PRINT "POSITIVE" 
30 IF SGN(X) = @ THEN PRINT "ZERO" 

4@ IF SGN(X -1 THEN PRINT "NEGATIVE" 
5@ GOTO 1a 


Run the program, inputting these numbers: 
15 -30 -,@12 @ ,.22 


ABS 


ABS tells you the absolute value of a number (the magnitude of the number 
without respect to its sign). Type: 


1@ INPUT "TYPE A NUMBER"3 N 
20 PRINT "ABSOLUTE VALUE IS" ABS(N) 
3@ GOTO 19 


Run the program inputting the same numbers as the ones above. 


STR$ 
STR$ converts a number to a string. Example: 


1@ INPUT "TYPE A NUMBER": N 
20 A$ = STRS(N) 
30 PRINT A$ +" IS NOW A STRING" 


Exponents Notice the OV (overflow) 


; : error at the end. The com- 
Type and run this program to see how the computer deals with very large putercan’t handle Aumbes 


numbers: larger than 1E + 38 or smal- 
ler than -1E + 38. (It rounds 


i@ K=i : off numbers around 1£-38 
20 PRINT X35 and -1E-38 to 0.) 

30 K=K*#¥108 

40 GOTO 2¢ 


The computer prints very large or very small numbers in ‘‘exponential 
notation.” “One billion’ (1,000,000,000), for example, becomes 1E+ 09, 
which means “‘the number 1 followed by nine zeros.” 


Or technically 1*109, which 
is 1 times ten to the ninth 
power: 1*10*10*10* 


If an answer comes out ‘‘5E-06,’’ you must shift the decimal point, which LOstOstOe Test 


comes after the 5, six places to the left, inserting zeroes as necessary. In our BASIC, that’s 5/10/10/ 
Technically, this means 5*10-6, or 5 millionths (.000005). 10/10/10/10 


Exponential notation is simple once you get used to it. You'll find it an easy 
way to keep track of very large or very small numbers without losing the 
decimal point. 


Congratulations, Programmer! 


You've now learned the “basics’’ and can no doubt write some decent 
programs. The rest of the book is extra—to help expand and refine your 
skills. 


If you want to keep learning, skip to any of these sections: 


. To improve your graphics programs, read Section Il, ‘‘Drawing 
Pictures.” 


: To write programs that handle large volumes of information, read 
Section III, “Getting Down to Business.” 


. To call ‘‘machine-language programs’’ from BASIC and, using 
machine language, create high-resolution graphics, read Section IV, 
“Bits and Bytes.”’ You need to already understand machine language 
to use this section. 


Learned in Chapter 12 
BASIC WORDS BASIC SYMBOLS BASIC CONCEPT 


STOP SGN AND Exponential 
CONT ABS OR notation 
MEM STR$ 


Notes 
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SECTION II 


DRAWING PICTURES 


This section shows how to write colorful and exciting programs. Here, 
you'll put pictures on your screen that move, dance, and even sing songs. 


CHAPTER 13 


COLOR THE SCREEN 
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Be sure to type Line 30. We'll 
explain why later. 


Having fun? If so, you’re sure to enjoy the subject of this chapter: computer 
graphics. 


Since graphic ideas will come to you quickly—and your programs may 
end up long—this chapter just shows how to start. While running this 
chapter’s programs, you may want to stop and improve or rewrite them. 
We hope you do. That's a fast way to learn. 


Start by making the screen black. Type: 
12@ CLS(@) 
Add these two lines and run the program: 


20 SET(81013) 
3@ GOTO 3d 


See the blue dot? It’s at the screen’s top left-hand corner. To put the dot at 
the bottom right-hand corner, change Line 20 and run the program: 


20  SET(6313193) 
Want to center the dot? Use this for Line 20: 
20 SET(31+1453) 


SET tells the computer to set a dot on your screen at the position you 
choose: 


. With the first number, you choose the dot’s horizontal position (a 
number from 0 to 63). 


. With the second number, you choose the dot’s vertical position (a 
number from 0 and 31). 


In the Appendix, there’s a screen grid, “Graphics Screen Locations.” It 
divides your screen into the 64 (0 to 63) horizontal positions and 32 (0 to 
31) vertical positions. Use this grid to position dots on your screen. 


What about 3, the third number? Try replacing 3 with other numbers. Type 
each of these lines and run the program: 


2@ SET(31+14:4) 
2@ SET(31+1491) 


Have you decided what this number does? When you use 4, the dot’s red; 
with 1, it’s green. The color codes for SET are the same as those for CLS [The screen poston ger 


(codes 0-8). They’re listed in your Quick Reference Card. are different than those for 
PRINT @). That’s why there 


Now see why the GOTO line is necessary. Delete Line 30 and run the aré twa prikdsin the Appear 
program: dix. Be sure to use “Graphics 
1@ =CLS(@) Screen Locations” for SET. 


20 SET(31+1451) 


Although you can’t see it, a dot is set. But when the program ends, the 
computer prints OK on top of the dot. 


The GOTO line sets an infinite loop in the program so that it will never end 
(that is, unless you press (BREAK). 


Setting Two Dots 


To set more than one dot, you need to do more planning. To find out why, 
run a few programs. First, run this: 


10 CLS(8) 
20 SET(32+1413) 
30 SET(3351453) 
40 GOTO 40 


You should now have two blue dots—side by side—in the middle of your 
screen. Change the color of the right dot so you'll have one blue and one 
red dot. Type: 


30 SET(33+14+4) 
Run the program again. This time, both dots are red. 


Look again at the ‘Graphics Screen Locations” grid. Note the darker lines 
group the dots into “blocks.” Each block contains four dots. For instance, 
the block in the middle of the grid contains these four dots: 


Horizontal Vertical 
Position 32 14 
Position 33 14 
Position 32 15 
Position 33 15 


Each dot within a block must either be: 


; the same color 
or 
. black 


The above program asks the computer to set two different-colored dots (red 
and blue) within the same block. Since the computer can’t set them in 
different colors, it sets them both in the second color—red. 


Type this and run the program: 
30 SET(34+14+4) 
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Notice we've changed Line 
50—the GOTO line. 
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Since the dot in position 34, 14 is ina different block, the computer can set 
the two dots in.different colors. 


The Computer’s Face 


Using dots, you can draw whatever you want. We'll draw a simple picture 
of a computer. First draw the top and the bottom of the head. We'll make it 
buff. Type: 


5S CLS(@) 

1@ FORH=i15 T0 48 
20 SET (H+5%5) 

30 SET (H+20;5) 
40 NEXT H 

50 GOTO 5a 


Run the program. This is what you see on your screen. (The lines should be 
buff rather than white, like we have them.) 


Lines 10 and 40 set up a FOR/NEXT loop for H, making the horizontal 
positions 15 through 48 for the top and the bottom lines. 


Line 20 sets the top line. The horizontal position is 15 through 48, and the 
vertical position is 5. 


Line 30 sets the bottom line. The horizontal position, again, is 15 through 
48, and the vertical position is 20. 


To set the left and right sides of the head, type these lines: 


50 FORY=53 TO 20 
6@ SET(15+V+5) 
70 SET(48+V45) 
B® NEXT Y 

98 GOTO 9d 


and run the program.: 

We'll make the nose orange. Type: 
9% SET(32+13+8) 

And the mouth red. Type: 


100 FORH = 28 TO 36 
110 SET(H+16+4) 
120 NEXT H 


And the eyes blue. Type: 


130 SET(25+1053) 
140 SET(38+10+3) 
150 GOTO 150 


Run the program. This is what your screen should look like now: 


A Blinking Computer 


With a few more lines, you can make the computer “‘blink.’’ Type: Wn eat ache 
150 RESET(38;19) computer the color of the 
: dot to reset (erase) it. 


Run the program. You now see the same face, except the right eye is 
missing. RESET erases the dot in the horizontal position 38 and the vertical 
position 10. That’s the right eye. 


To make the eye blink, simply set and reset it by adding this line: 
iG@ GOTO ido 
List your program to see if it’s the same as ours. 


> CLS(@) 

10 FORH= 15 T0 48 
20 SET(H+5+5) 

30 SET(H»+20%55) 

40 NEXT H 


50 FORY=5 70 20 
60 SET(159V15) 
70 SET(48sV55) 
B82 NEXT WY 


96 SET(32+137B) 


i@® FORH = 28TO 36 
110 SET(H+1614) 
120 NEXTH 


130 SET(25+10+3) 
140 SET(38+10+3) 


15@ RESET(38;:10) 
16@ GOTO 140 


Run and improve it (if you can). 
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Remember always to erase 
your program before typing 
2 “new” one. 


Be sure to type the semico- 
tons at the ends of Lines 20, 
30, 40, and 50. 


The second or fourth num- 
ber may change also, but not 
from 0 to 63. 
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The Bouncing Dot 


You may now see how to program pictures that move. This program makes 
a ball move down: 


5 CLS(@) 

1@ FORY=9@TO 31 
20 SET(31+V+3) 
3@ RESET(31+) 
40 NEXT Y 


Each dot that Line 20 sets, Line 30 erases. 
To move the ball back up, add these lines: 


50 FORY=31T098STEP -1 
6B SET(31+V+3) 

70 RESET(315¥) 

B82 NEXT Y 


Add this line to make the ball ‘‘bounce”’: 
9% GOTO 1¢a 


Run the program. To slow the dot down (it'll look better), change Lines 30 
and 70: 


30 IF VY > @ THEN RESET(31 +V-1) 
70 IF V< 31 THEN RESET(31 5V+1) 


The > sign means the same as it does in math—greater than. The < sign 
means less than. 


If You Have Joysticks ... 


If you have joysticks, connect them now by plugging them into the back of 
your computer. They fit in only the correct slots, so don’t worry about 
plugging them into the wrong places. 


Now run this short program to see how joysticks work: 


i@ CLS 

20 PRINT @@+ JOYSTK(@) 5 
30 PRINT @S+ JOYSTK(1) 5 
40 PRINT @1@+ JOYSTK(2)3 
5@ PRINT @15,+% JOYSTK(3)3 
62 GOTO 20 


See the four numbers on your screen? They’re the horizontal and verti- 
cal positions of the two joysticks’ ‘floating switches.” 


Grasp the right joystick’s floating switch. (The joystick connected to the 
RIGHT JOYSTICK jack on the back of the computer.) Keeping it in the 
center, move it from left to right. The first number on the screen 
changes: to numbers from O and 63. 


Move the left joystick’s floating switch from left to right. The third number 
on the screen changes. 


Now move the floating switches up and down, keeping them in the center. 
Moving the right joystick up and down changes the second number from 0 
to 63. Moving the /eft joystick up and down changes the fourth number 


from 0 to 63. 
This is how the computer reads the joysticks’ positions: 


LEFT JOYSTICK 


JOYSTK(2) JOYSTK(3) 


RIGHT JOYSTICK 


JOYSTK(O) JOYSTK(1) 


JOYSTK(0) and JOYSTK(1) read the right joystick’s positions: 


° JOYSTK(0) reads the horizontal (left to right) coordinate. 
. JOYSTK(1) reads the vertical (up and down) coordinate. 
JOYSTK(2) and JOYSTK(3) read the left joystick’s positions: 

. JOYSTK(2) reads the horizontal coordinate. 

. JOYSTK(3) reads the vertical coordinate. 


Whenever you read any of the joysticks, you must read JOYSTK(0). To find 
out for yourself, delete Line 50 and run the program. It works almost the 
same, except it doesn’t read JOYSTK(3)—the vertical position of your left 
joystick. 


Delete Line 20 and change Line 60: 
62 GOTO 30 


Run the program. Move all the switches around. This time the program 
doesn’t work at all. The computer won't read any coordinates unless you 
first have it read JOYSTK(O). Type these lines and run the program: 


20 A= JOYSTK(@) 
6@ GOTO 2e 
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> = means greater than or 
equal to 
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Although the computer’s not printing JOYSTK(0)’s coordinates, it’s still 
reading them. Because of this, it’s able to read the other joystick coordi- 
nates. Whenever you want to read JOYSTK(1), JOYSTK(2), or JOYSTK(3), 
you first need to read JOYSTK(O). 


Painting with Joysticks 


Type and run this program: 


i@ CLS(®@) 

20 H= JOYSTK(@) 

3@ Y= JOYSTK(1) 

40 IF VY? 31 THENY = - 32 
BO SET(H+¥+3) 

90 GOTO 29 


Use the revolving switch of your right joystick to paint a picture. (Move the 
switch slowly so that the computer has time to read its coordinates.) 


J 


Line 20 reads H—the horizontal position of your right joystick. This can be 
a number from 0 to 63. 


Line 30 reads V—its vertical position. This can also be a number from 0 to 
63. Since the highest vertical position on your screen is 31, Line 40 is 
necessary. It makes V always equal a number from 0 to 31. 


Line 80 sets a blue dot at H and V. 


Line 90 goes back to get the next horizontal and vertical positions of your 
joysticks. 

This uses only the right joystick. Perhaps you could use the left one for 
color. Add these lines and run the program: 


5@ C= JOYSTK(2) 

6@ IFC« 31 THENC = 
7@ IFC 323i THENC 
BO SET(H+V5C) 


Move your left joystick to the right, and the computer makes C equal to 3; 
the dots it sets are red. Move it to the left, and the computer makes C equal 
to 4; the dots it sets are blue. 


3 
=4 


Want to use your joystick buttons? Add these lines to the program: 


10@ P= PEEK(65280) 
110 PRINT P 
120 GOTO i100 
Now type: 
RUN 129 (ENTER) 


This tells the computer to run the program starting at Line 100. Your 
computer should be printing either 255 or 127 over and over. 


PEEK tells the computer to look at a certain spot in its memory to see what 
number's there. Line 100 looks at the number in position 65280. As long as 
you’ re not pressing either of the buttons, this spot contains the number 255 
or 127. 


Press the right button. When you press it, this memory location contains 
either the number 126 or 254. 


Press the left button. This makes this memory location contain either the 
number 125 or 253. 


Using this information, you can make the computer do whatever you want 
when you press one of the buttons. We'll make it go back to Line 10 and 
CLS(0) (clear the screen to black) when you press the right button. Change 
Lines 110 and 120: 


ii@ IFP 
120 DFP 


Delete Line 90 and add this line: 
130 GOTO 28 


Run the program and start ‘‘painting.”” Press the right button when you 
want to clear the screen and start again. 


126 THEN i@ 
204 THEN 10 


Learned in Chapter 13 
BASIC WORDS 


SEI 
RESET 
JOYSTK 
PEEK 


Notes 


If you press the buttons 
when youre not running the 
program, you'll see 
(@ ABCDEFG or HIJKLMNO. 


Some of the joysticks will 
notread six “blocks” ineach 
of the four corners of your 

screen. ‘ 
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CHAPTER 14 


GAMES OF MOTION 
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Ready for video games? Because of a word named POINT, you can 
program almost any kind of motion game. 


Type these lines. They set orange dots at random horizontal and vertical 
positions: 

> CLS(@) 

1@ FORX=i1TO5 

20 SET(RND(G4)-1,+, RND(30) + 1,5 8) 

30 NEXT xX , 


Add these lines and run the program: 


40 FORYVY=2T0391 

50 FORH=9%TO 63 

6@ IF POINT(H+Y) <> @ THEN GOSUB 100 
7®@ NEXTH 

75 NEXT V 

80 END 


100 PRINT @@+ "LOCATION" H">" VW "IS SET" 
110 RETURN 


Line 60 checks each “point” in vertical positions 2-31 and horizontal 
positions 0-63. 


. If the point equals 0, it’s “off’’ (black). 


. If the point equals some other number, it’s “set.” Line 100 prints the 
point’s position. 


You can also find out what color each point is. Erase memory, and then 
type and run this program: 


3 CLS(@) 

i@ C=RND(9) - 1 

20 SET(31+15+C) 

30 IF POINT(31515) = 2 THEN PRINT @ OO; 
"LOCATION 31+15 15 YELLOW" 


40 IF POINT(31+15) = 3 THEN PRINT @ 480, 
"LOCATION 31°15 IS BLUE"; 

5@ FORT = 1 70 1000: NEAT T 

6@ GOTOS 


If the point is “set,” it equals one of the 8 color code numbers listed in 
Appendix B. 


Plotting Through Asteroids 


This game uses the right joystick, so be sure it’s connected. (If you don’t 
have joysticks, skip to the next chapter.) 


Erase memory and type these lines. They create “asteroids.” 


> CLS (8 

1@ FOR X= 1 TO 280 

20 SET (RND(G4) -1+ RND (30) + 1+8) 
30 NEXT X 


Type these lines to create a “‘planet.” 


4@ FORH=547T0 63 
5@ FORY = 28T0 31 
6@ SET(H+Vs3) 

70 NEXT YoH 


The above lines set blue dots in each of these positions: horizontal 54-63 
and vertical 28-31. Note that Line 70 contains two instructions: NEXT V 
and NEXT H. 


To read the right joystick’s position, type: 


100 A= JOYSTK(O) 
110 B= JOYSTK(1) 
120 B=B/2 

130 B= INT(B) 


A reads the horizontal coordinates (0-63), and B reads the vertical coordi- 
nates (0-63). Since the highest vertical position on your screen is 31, Lines 
120 and 130 are necessary. 


To set the entire block surrounding the joystick’s position, add these lines: 


200 QF INT(A/2) <3 A/2 THENA=A- 1 
210 IF INT(B/2) <> B/2 THENB=6B - 1 
220 FORH=AT 

230 FORY = 
240 SET(H+Y>G 
25@ NEXT VoH 
999 GOTO 18a 


Lines 200 and 210 ensure that the first horizontal and vertical dots set are 
even numbers, and Lines 220-250 set the entire block. 


Run the program. Move your joystick around. The cyan colored line moves 
wherever you position the joystick. 


Now turn this into a game. Type these lines and run the program: 


212 FORH=ATOA?+1 
214 FORY=BTOBt+i 
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216 


218 


IF POINT(H+¥) = 8 THEN SOUND 128+1: 
T=T+1 
NEXT oH 


Each time you hit an orange point, Line 216: 


° Sounds a tone 


» Adds 1 to T, a counter 


Add these lines and run the program: 


235 


IF POINT(H+Y) = 3 THEN PRINT @ Os 
"CONGRATULATIONS - YOU MADE IT": END 
PRINT @ 28> T 
IF T > 18 THEN 10008 

FOR X= 1 TO 408 

CLS(RND(8)) 

SOUND RND(255), 1 

NEXT XK 

PRINT @ 228, "YOUR SPACESHIP EXPLODED" 


Want the rules printed on the screen? Add some more lines: 


BO 


FORX=1TO8 

READ A% 

PRINT @ @+AS% 

FOR Y = 1701500: NEXT Y 

NEXT XK 

R$ = INKEY$: IF R$ = '"" THEN 98 

FORH=4T0O63 

SET(H+@+8): SET(Hs1 +8) 

NEXT H 
DATA YOUR GOAL IS TO PLOT A COURSE 
DATA TO GUIDE YOUR SPACESHIP 
DATA THROUGH THE ASTEROIDS 
DATA TO THE BLUE PLANET 
DATA HIT MORE THAN 18 ASTEROIDS 
DATA AND YOUR SPACESHIP EXPLODES! ! ! 
DATA PRESS ANY KEY WHEN YOUR SPACE - 
DATA SHIP IS AT TOP LEFT CORNER 


Learned in Chapter 14 


BASIC WORD 
POINT 


Notes 
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CHAPTER 15 


THE TALKING-COMPUTER 
TEACHER 


Who says the computer can’t talk? Its voice, though, sounds strangely like 
your own. You can program the computer to “talk’’ using your own taped 
voice. This adds interest and fun to any program. 


This chapter requires that you have a tape recorder. 


° Unplug the three-pronged cable connecting your tape recorder to 
the computer. 
° Put in a tape, rewind it, press the PLAY and RECORD buttons, and 


talk into the microphone. (Plug in a microphone if your recorder 
doesn’t have one built in.) Say whatever you want. 


Now type this program: 
Even if you don’t have a mi- 


5 CLS 
hone, h 
1@ INPUT "PRESS <ENTER> TO HEAR THE Osi coe eee 
RECORDING" $ A& music or one of your pro- 
20 MOTOR ON gram tapes. 


3@ AUDIO ON 


a Bb Cc Dd Ee FF Go Hh Ti J) Kk LI Mm Nn Oo Pp Qq 


a 


> 


Before running the program, prepare the recorder: 


. Rewind the tape you've just recorded. 
° Connect the recorder to the computer (as shown in your introduction 
manual). 


. Press the recorder’s PLAY button. 

. Turn up your T.V.’s volume. 

Run the program. You'll hear your voice over the T.V. 

MOTOR ON turns on your cassette recorder. AUDIO ON connects your 
recorder’s sound to the T.V. speaker. 
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There’s a way of programming your tape recorder to stop, but for now 
simply press RESET. It’s on the back right-hand side of your keyboare 
(when you're facing it). List your program. It’s still intact. 


Add these lines: 


33 CLS 

40 A = INKEYS 

50 PRINT @ 255,» "PRESS <x» TO TURN OFF 
RECORDER" 

60 IF A$<? "K" THEN 40 

70 AUDIO OFF 

B® MOTOR OFF 


Prepare your tape for playing and run the program. 


Line 40 labels whatever key you are pressing or not pressing as A$. When 
you press X, the recorder’s audio connection and motor are turned off. 


Now you can record the “‘talking-computer teacher.”” Here’s the script: 


SCRIPT 


“Hi, I'm your talking-computer teacher. The first lesson is math. 1’Il 
give you a series of addition problems. Press the ‘W’ key —” 


(pause for a few seconds) 


This program is a little long, “You'll hear that every time you give me a wrong answer. Press the 


but we think you'll enjoy it. ‘R’ key —” 
If you want, you can go on to 
the next chapter and come 


back to this later. “That's how I'll reward you when you answer correctly. | won’t talk 
to you again until you give me three correct answers. Press the ‘G’ 
key to begin.” 


(pause for a few seconds) 


(pause for a few seconds) 


“Lesson’s over. Press the ‘E’ key to turn off the cassette.”’ 


Finished? Now draw the teacher. Here’s the grid: 
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Draw the mouth first. Erase memory and type: 


2 - ELSCa> 

20@ FORH = 26 T0 35 
21@ FORY= 1670 21 
220 SET(H+Ws4) 


230 NEXT VoH 


That’s a closed mouth. To make it talk, type: 


900 RESET(30+,18): RESET(3@+19) 
510 GOTO 200 


Run the program. Now draw the face: 


100 FORH 
11@ FORY 
120 SET(HsWs5) 
130 NEXT VoH 


16 TO 47 Remember, you can always 
4.723 press RESET to stop your re- 


corder when it is connected 
to the computer. 


The body: 
140 FORH=@TOG3 STEP 4 
150 FORY = 2470 31 


160 SET(H+Vs2): SETCH + 1992) 
170 SETCH + 259V57)2 SET(CH + 39V 57) 
180 NEXT VoH 


The eyes: 


3008 FORY=1i10@TO11 

310 SET(24+V53): SET(25 V3) 

320 SET(36+V+3):s SET(37 V3) 

330 NEXT Y 

340 PRINT @@+ "THE TALKING COMPUTER TEACHER" 


Want to make the eyes blink? Type: 


5@5 IF RND(4) = 4 THEN SET(24+1055): 
SET(37+1015) 


Run the program. That’s the teacher. To get it to talk, add these lines: 


40@ MOTOR ON 
41@ AUDIO ON 
420 AS = INKEY$ 


430 IF AS = "G" THEN MOTOR OFF: END 
440 IF A& = "W" THEN MOTOR OFF: GOSUB 2000 
450 IF A% = "R" THEN MOTOR OFF: GOSUB 3000 


2000 FORT=1767T089 STEP -10 
20108 SOUND Tl 

2020 NEXTT 

2030 RETURN 

3000 FORT =89 T0176 STEP 108 
30128 SOUND Tl 

3020 NEXT T 

3030 RETURN 


Before running the program, prepare your tape for playing. (Rewind the 
tape, connect the recorder to the computer, and press PLAY.) Then run the 
program. 


85 


Do what your voice tells you. When you press W, you should heat 
descending tones; R gives you ascending tones. G just ends the program. 
That’s because you haven’t typed the arithmetic routine yet. 


Change Line 430 and add Line 460: 


430 IF A$ = "G" THEN MOTOR OFF: GOSUB i1@00 
460 IF AS = "E" THEN MOTOR OFF: END 


Then add the arithmetic routine: 


1000 = RND(10@): Y = RND(100) 
1010 PRINT @@+ "WHAT IS" X "+" Y 
Notice Line 1015. It sets the 1915 PRINT@ 20," " 


PRINT position for what you 1020 INPUTA 
type in Line 1020. 1930 IF A=X+ ¥ THEN GOSUB 3000: C=C+1 


i040 IF A¢? xX + Y THEN GOSUB 2000: PRINT @@» 
"WRONG - THE ANSWER IS" & + ¥ 

1050 IF C = 3 THEN RETURN 

1060 FOR P=1 70500: NEXT P 

1g70 GOTO 1902 


Rewind the tape and press PLAY. Run the program. 


The talking-computer teacher. Perfect for making arithmetic fun. 


Learned in Chapter 15 
BASIC WORDS 


MOTOR 
AUDIO 
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CHAPTER 16 


FASTER GRAPHICS 


Up to now, you've used only one method to draw pictures on your screen. 
Using SET is easy, but slow and tedious. This chapter shows a faster 
method to use—graphic character codes. 


Character Codes 


Type: 
PRINT ASC("A") 
The computer displays 65—the ‘ASCII’ code for the character A. Type: 


PRINT CHR#(G5) (ENTER 


The computer displays A—the character represented by the ASCII code 
number 65. 


“ASCII” stands for the Amer- 
ican Standard Code for In- 
formation Interchange. By 
using these standard codes, 
your computer can com- 
municate with other 
computers. 


Look at the list of “ASCII Character Codes” in your Quick Reference Card. 
Each keyboard character has a code. Test some other characters. 


Note that even the ‘‘nondisplayable” characters—such as @)—have a 
code. Erase memory, and type this program: 


20 H=63 

25 SET(H+14+3) 

30 At = INKEYS 

40 IF A% = CHR#(8) THEN GO 
50 GOTO 3a Need to review INKEY$? See 


60 H=H-1 Chapter 11. 
65 IFH« @ THEN END 

7@ SET(H+14+3) 

75 RESET(H +1514) 

8@ GOTO 30 


RUN the program. Press the character. Each time you press it, it 
backspaces the blue dot. 


Lines 30 and 40 check to see if you’re pressing the key (Code 8). 
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If you are pressing G5), Lines 60 and 70 ‘‘backspace’’ H, the horizontal 
coordinate, and set a blue dot. Line 75 then resets (blacks out) the previous- 
ly set blue dot. 


DO-IT-YOURSELF PROGRAM 16-1 


Write some more lines to the program so that you can press E>) to 
move the dot forward. 


Graphic Character Codes 


The ASCII codes in your Quick Reference Card represent only about half 
the Color Computer’s ASCII codes. The other half of the codes—Codes 
128-255—are for graphic characters. 


Type: 
PRINT CHR# (C128) (ENTER 
The computer displays a black block. Try other graphic codes: 


PRINT CHR#(i29) (ENTER 
PRINT CHR$(13@) (ENTER 
PRINT CHR#(131) (ENTER 


The computer displays three blocks with different combinations of green 
and black. 


Since the green background makes it difficult to see the outline of the 
blocks, type this program. It displays the first block against a buff back- 
ground: 

A grid of “PRINT (a Screen 

Locations” is in the Appen- 1@ CLS(5) 

dix. (We explained how to 2@ PRINT @ 239+ CHR#$(129)35 

use it in Chapter 7.) Be sure 30 GOTO 3a 

to type the semicolon. 


Look at ‘Graphics Screen Locations’ in the Appendix. As we explained 
earlier, the darker lines divide the grid into blocks. Each block contains 4 
dots. These 4 dots can be arranged in 16 ways to form these graphic 
characters: 


131 132 133 134 135 


oe oe 


138 139 140 141 142 143 
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To display all 16 graphic characters, type and run this program: 


1@ CLS(5) 

2@ FORC=128 70143 

30 PRINT @@; "PRESS ANY KEY TO CONTINUE" 5 
40 PRINT @173;C35 

50 PRINT @ 240+ CHRS(C)3 


Know why it’s important to 
type a semicolon at the end 
of these PRINT (@ lines? Try 
it with and without the semi- 
colon. 


The semicolon makes the 
computer stop as soon as it 


6a Bee = INKEY$ : IF K$ = "" THEN GO displays your characters. 
7@ NEXT C Otherwise, it continues to 
80 GoTo ie display its customary green 


background for the rest of 


Line 50 displays the graphic characters for Codes 128-143 at Position 240 the line. 


on your screen. 
Try something a little different. Type: 
PRINT CHR#(129 + 16) (ENTER 


The computer displays the graphic character for 129, except the area that 
should be green is yellow. Type: 


PRINT CHR#(129 + 32) (ENTER 
PRINT CHR$(129 + 48) (ENTER 
PRINT CHR#(129 + G4) (ENTER 


These are the numbers you can add to the 16 graphic codes above to create 
different colors: 


O—green 64—buff 
16—yellow 80—cyan KGa ; I 
27__.| = otice these numbers are a 
32—blue 96—magenta multiples of 16. (16 = 16*1; 
48—red 112—orange 32 = 16*2; 48 = 16*3... 
To see all the graphic characters in each color, add these lines and run the ieee 
program: If you prefer, you can use the 
a tiee formula on your Quick 
15 FORK =9aTO?7 Reference Card. It gives the 


17 I x = 1 THEN CLS(1) same results. 
4@ PRINT @170+C "+" X# 1635 

5Q PRINT @ 240, CHR#(C +X *#16)3 
75 NEXT &# 


PROGRAMMING EXERCISE 


Write 3 linés to create the characters below. Make the first buff; the 


second, magenta; and the third, blue: 


Answers: 


PRINT CHR#(133 + G4) 
PRINT CHR#(137 + 9G) 
PRINT CHRS(14@ + 32) 


Graphic Strings 
BASIC treats graphic characters the same as any other characters: as 
strings. You can combine and store graphic characters the same way you 


combine and store strings. 
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Note the difference: You 
“print” graphic characters 
using “PRINT @ Screen 
Locations” (Appendix B). 
You ‘‘set’’ dots using 
Graphic Screen Locations 
(Appendix C). 
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Erase memory and form two graphic strings. Type: 


10 As = CHR$(129 + 32) + CHR$(131 + 32) 
20 BS = CHR#(133 +112) + CHRS$(143 + 112) + 
CHR#(130+ i112) 


You can position these ‘‘strings’’ on your screen in the same way you 
position any other strings: with PRINT @. Add these lines and run the 
program: 


30 CLS(0) 
4® PRINT @ 237) AS 
5@ PRINT @ 241, B93 
68 GOTOGe 


The computer displays what looks like a blue car and an orange truck at the 
center of your screen. 


DO-IT-YOURSELF PROGRAM 16-2 


Using graphic characters, write a program to create this image in the 
center of your screen. Make the chairs yellow and the table orange. 


Learned in Chapter 16 


BASIC WORDS BASIC CONCEPT 


ASCII graphic characters 
CHR$ 


CHAPTER 17 


LET’S DANCE 


This chapter lets you catch your breath, have some fun, and, at the same 
time, review what you've learned. You'll create a ‘‘dancing computer’’ that 
looks, at rest, like this: 


i CLEAR 1000 
: F , O C , the ligh 
Then add these lines to form the black strings (D$, G$, B$, and BK$), the waa wile see ba 
buff strings (C$, F$, and A$), and the red string (E$): green, red; and the gray 


area, black. 
i@ D¢ = CHR$(128) + CHR#(128) 
20 G# = DS + CHR#(128) 
30 Bt =G$t+ Dé 
40 BkKS = B$ + BS + BS + DS + DS B$ is actually 5 characters 
5@ C$ = CHR#(143 + G4) long. On your screen it will 
6@ Fe =C$ + CH line up with the word 
70 AGF=FH+ CH PRINT. 
8@ FORX=1T0O?7 ; a, 
g@ E% = E% + CHRS(143 + 48) mee are cage 


192 NEXT X 


C$ is 1 character long; F$ is 
27 EG AS. 7. 


U 


Ee 


Run the program. Then display all the strings you've formed. For example, 
to display BK$, type: 


PRINT BK -< ENTER? 
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Now combine the above strings to form the head (HD$): 


The body (BD$): 


And three leg positions: L1$, L2$, and L3$: 


To do this, add these lines: 


110 
120 
130 
14a 
1530 


Run the program. Then display the five new strings you've formed. 


Now add these lines: 


300 
318 
320 
530 


1000 
1010 
1020 
1030 


2000 
3000 
4000 


HDS = BS + A$ + BS + BK + BSE + AS + BS + BKE 
FORX=i1TO4 

BD = BD$¢ +D$+C#+E$ + C$ + DS + BRS 

NEXT x 

Lig =G$+E$+G$+BK$ + G$+F$ + G$+FS + 


G$+BK$ + G$+F$+G% + FS + GS 


H$ = GS + Gt 

oe © ie © Se Examples: To display the 
L2¢ =G$+E$+A$+BK$+G$+FR + HS + FS + head Bie Berd ae 
BKS + G$ + FS (ENTER). To display the 
L3$ = AS + ES +G$+BK$ + FS +H + FS + GH + body, type PRINT BD$ 
BK + 1$ + FS CENTER). 


INPUT "LOCATION (@-243)"5L 
INPUT "POSITION (1-3)"5 P 
GOSUB 1000 

GOTO 580 


CLS(@) 

PRINT @ L+ HD# + BDS3 

ON P GOSUB 2000; 3000; 4000 
PRINT @L + 32 * 6+ LG$35 : RETURN 


LG$=Li¢: RETURN 
LG$ = L2% : RETURN 
LG$ = L3¢ : RETURN 


Run the program. The computer shows you each location and position you 


request. 


Line 1010 prints the head and the body at the location you requested. 


Line 1020 sends the program to a subroutine that makes LG$ equal to L1$, 
L2$, or L3$ (depending on whether you typed 1, 2, or 3 for the position). 
Line 1030 then displays LG$ directly under the head and body (6 columns 
below your requested location). 


To make the computer dance, change Lines 500 and 510 and add these | 


lines: 


580 
519 


FOR X=17TO17 
IF X = 1 OR X = 5 THEN RESTORE 


5S INPUT "SPEED (1-10)"3 5 


READ L+ P+ T+ D 

SOUND T+ 5S *D 

NEXT X 

DATA 137+ 2+ 89+1+» 240,11+133+2 Remember READ and DATA 
DATA 137+ 3+159+1+229+11133+2 from Chapter 13? 
DATA5+1+89+1+ 229+11+133+2 

DATAS+ 1+ 147+ 1+, 229,1+159%1 

DATA 229+ 1+ 147+1+5+ 1+ 133-1 

DATA 229+1+125+ 2+ 5+ 1+133+1 
DATA 22911114712 
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Run the program and watch the dance. Line 515 reads Lines 5000-5060 to 
determine each screen location, leg position, tone, and tone duration. 


For example, at first, the ‘dancing computer” appears at Screen Location 
137 with Leg Position 2. It sounds Tone 89 for Tone Duration S+1. 


Next the dancing computer appears at Screen Location 240 with Leg 
Position 1. It sounds Tone 133 for Tone Duration S*2. 


If you're still with us, you no doubt have many of your own ideas. If you 
plan to do much graphic programming, you may want to consider upgrad- 
ing to Extended Color BASIC. 


SECTION Ill 


GETTING DOWN 
TO BUSINESS 


This section deals with information you want to manage. For example, you 
may want to manage: 


‘ Checkbook receipts 

. Shopping items 

. Tax records 

° Inventory 

. Addresses 

. Records, books, or tape collections 


In this section, you'll learn how to store, update, sort, and analyze informa- 
tion to fit your own needs. 


CHAPTER 18 
TAPING 


Your first and foremost task is to store your information permanently on 
cassette tape. This, of course, requires a tape recorder. 


Ready to get organized? We'll start with your book collection. Here’s a 
small list of books: 


1. WORKING 

2. CAT’S CRADLE 

3. SMALL IS BEAUTIFUL 
4. STEPPENWOLF 


If you've read your introduction manual, you know how to save BASIC 
programs on tape. To save information, you need a program that follows 
these steps: 


STEPS FOR STORING INFORMATION ON TAPE 


. Open communication to the tape recorder so that you can output 
(send out) information to a file. 


. Output all information to the tape recorder file. 


. Close communication to the tape recorder. 


CHRISTMAS List: 


Start the program with this line: 
1@ OPEN "O", #-i+s "BOOKS" 
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A “file” is a collection of in- 
formation—such as book ti- 
tles—stored under one 
name. 


This ‘‘opens’”’ communication to the tape recorder (‘device #-1’’) so that 
you can “output” (““O”’) information. Whatever information you output, 
the computer stores on tape in a “‘file’’ named BOOKS. 


Now output the information. Type: 


15 CLS: PRINT “INPUT YOUR BOOKS--TYPE <xXxX> 
WHEN FINISHED" 

20 INPUT "TITLE"$ TS 

30 PRINT #-1;+ TS 

4@ GOTO 15 


Line 20 “‘prints’’ (outputs) your book titles—not to the screen, but to device 
# - 1, the tape recorder. 


Then close communications. Type: 


25 IF T& = "KX" THEN 5@ 
5@ CLOSE #-1 


The computer then closes communication to the tape recorder. 


Add three more lines to the program: 


i CLS 
2 PRINT "POSITION TAPE - PRESS PLAY AND 
RECORD" 


4 INPUT "PRESS «ENTER? WHEN READY"S R& 


The program should now look like this: 


CLS 

PRINT “POSITION TAPE--PRESS PLAY AND 
RECORD" 

4 INPUT "PRESS «ENTER? WHEN READY"S R& 


blo 


opens Conmynitatren. +10 OPEN "O", #-1» "BOOKS" 
Wa - 


15 CLS: PRINT "INPUT YOUR BOOKS - TYPE <XxX> 
WHEN FINISHED" 

20 INPUT "TITLE"$ TS 

25 IF T$ = "XX" THEN 50 


Prints tthe vo psterder, + 30 PRINT #-15 TS 


4@ GOTO is 


Charles Com munieation —50 CLOSE #-1 


Prepare the recorder. 


* Connect the recorder. Your computer’s introduction manual shows 
how. 


° Position a tape in the recorder, and, if necessary, rewind the tape so 
you'll have room for recording. (If you’re using a non—Radio Shack 
tape, position it past the starting leader.) 


° Press the recorder’s RECORD and PLAY buttons so that they are both 
down. 


Then run the program. As soon as you press (ENTER), the cassette motor 
turns on: The computer is opening a “file” on tape and naming it BOOKS. 


The program then asks for titles. Type: 


TITLE? WORKING 

TITLE? CAT’S CRADLE 
TITLE? SMALL IS BEAUTIFUL 
TITLE? STEPPENWOLF 
TITLE? KK 


Each time you input a title, the computer prints it in a special place in 
memory reserved for the tape recorder. When you finish, the tape recorder 
motor turns on: The computer is printing all the titles to the recorder (Line 
30) and then closing communication with the recorder (Line 50). 


Your book titles are now all saved on tape in a file named BOOKS. To read 
them back into memory, use just about the same steps. 


STEPS FOR INPUTTING INFORMATION FROM TAPE 


. Open communication to a tape recorder so that you can input 
information from a file. 


. Check to see if you’re at the end of the file. 


. Input information from the tape recorder file. 


. Repeat Steps 2 and 3 until you reach the end of the file. 


. Close communication to the tape recorder. 


To open communication, type: 


6@ CLS: PRINT “REWIND THE RECORDER AND 
PRESS PLAY" 

7® INPUT "PRESS «ENTER? WHEN READY": R& 

B8@ OPEN "I"y #-1+ "BOOKS" 


The computer clears the 
screen after each title. 


Are you wondering what the 
-1 means? EOF returns a -1 
when you reach the end of 
the file. 


Be sure to press only the 
PLAY button, Not RECORD 
Also, be sure to rewind the 


tape. 


If your computer becomes 
“hung up” communicating 
with the tape recorder, you 
can regain control by press- 


ing the RESET button. It’s on 
the back right-hand side of 
your keyboard. Then look 
for missing or mistyped lines 
in your program. 
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This opens communication to the tape recorder—this time, to input in- 
formation from the BOOKS file. 


To input information, add these lines: 


90 INPUT #-1+ BS 
100 PRINT BS 


Line 90 inputs the first book title (B$) from the BOOKS file stored on tape. 
(The variable name you choose makes no difference.) Line 100 displays 
this title on your screen. 


To check for the end of the file and close the file, add these lines: 


85 IF EOF (-1) THEN 120 
112 GOTO 85 
120 CLOSE #-1 


Line 85 says if you are at the end of this file (in this case, the BOOKS file), go 
to 120 and close communication with the tape recorder. 


Note that EOF(-1) comes before the INPUT #-1 line. If it’s after INPUT #-1, 
you'll get an IE error—‘‘input past the end of the file.” 


List this last part of the program by typing LIST 60 - (ENTER). It should look 
like this: 


6@ CLS: PRINT “REWIND THE RECORDER AND 
PRESS PLAY" 

70 INPUT “PRESS <ENTER? WHEN READY"$ R& 

82 OPEN "I", #-1, "BOOKS" ¢~Gesescs Compnuemicetion 

85 IF EOF (-1) THEN i128 won raced 

92 INPUT #-1+ Be dnps Atle. frarr) Ancarolr, 

120 PRINT B¢ 

11@ GOTO 85 a 

120 CLOSE #-14— Leate tornmmtation with Atanas 


Now run this part of the program. Type: 
RUN GO 


When you press (ENTER), the recorder’s motor comes on while the com- 
puter inputs items from tape. When finished, it displays the four items on 
your screen. 


An Electronic Card Catalog 


Assume you need to change the program so it can also store the books’ 
authors and subjects: 


TITLE AUTHOR SUBJECT 
Working Studs Terkel Sociology 
Cat’s Cradle Kurt Vonnegut Fiction 
Small Is Beautiful E. F. Schumacher Economics 
Steppenwolf Hermann Hesse Fiction 


Start by changing the ‘output’ part of the program (the first half). Type 
these lines: 


Then 


Now 


26 INPUT “AUTHOR'S AS 

28 INPUT "SUBJECT: S# 

29 IF AS = "XK" OR S$ = "XX" THEN 50 
30 PRINT #-11s T+ A+ SH 


change the “input’’ part of the program. Type these lines: 


90 INPUT #-1, B%+ AS» S$ 
100 PRINT "TITLE :" BS 

102 PRINT "AUTHOR :" As 
104 PRINT "SUBJECT :" S$ 


take advantage of this organization. For example, have the program 


print a book list on any given subject. Add these lines: 


1308 CLS 

140 INPUT "WHICH SUBJECT"s C% 

150 PRINT "REWIND THE TAPE - PRESS PLAY" 
160 INPUT "PRESS <ENTER? WHEN READY"s ES 
17@ CLS: PRINT C# " BOOKS" +: PRINT 

18@ OPEN "I"+ #-1+, "BOOKS" 

190 IF EOF (-1) THEN 238 

200 INPUT #-1+ B+ ASs SS 

210 IF S$ = C# THEN PRINT BS? AS 

220 GOTO 190 

230 CLOSE #-1 


Run the input part of the program by typing RUN 130 (ENTER). If you choose 
“fiction,”’ this happens: 


WHICH SUBJECT? FICTION 
REWIND THE TAPE - PRESS PLAY 
PRESS «ENTER? WHEN READY 


FICTION BOOKS: 


CAT’S CRADLE KURT YONNEGUT 
STEPPENWOLF HERMANN HESSE 
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DO-IT-YOURSELF PROGRAM 18-1 
Assume you have these checks: 
NO. DATE PAYABLE TO ACCOUNT AMOUNT 


101. 5/13 Safeway food $52.60 
102 5/13 Amoco car 32.70 
103. 5/14 Joe’s Cafe food 10.32 
104 5/17 American Airlines — vacation 97.50 
105 5/19 Holiday Inn vacation 72.30 


Write a program that outputs all the checks to tape. Then have it input 
them from tape so that you can type one account—such as food—and 
the computer will tell you the total amount you've spent on food. 


See “Sample Programs” in the Appendix for examples of how to store data 
on tape. 


Learned in Chapter 18 
BASIC WORDS BASIC CONCEPT 
OPEN data files 


CLOSE 
PRINT #-1 
INPUT #-1 

EOF 


Notes 
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CHAPTER 19 


MANAGING NUMBERS 


Have you tried to write programs to handie much information? If so, you'll 
be glad to know Color BASIC has an easy-to-manage way to keep track of 
information. 


Assume, for example, you want to write a program that lets you manage 
this information: 


ELECTION RESULTS 


District Votes for Candidate A 
1 143 
2 215 
3 125 
4 331 
5 442 
6 324 
7 215 
8 Tis 
9 318 

10 314 
11 223 
12 152 
13 314 
14 92 


Up to now, you've used variables to store information in memory. For 
example, to store the votes of the first three districts, type: 


A = 143 (ENTER 
B = 215 (ENTER 
C = 125 (ENTER 


But there’s a better kind of variable you can use. Type: 


A(1) = 143 (ENTER 
AtZy = 215 
A(3) = 125 (ENTER 
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Each of the above variables has a ‘‘subscript’’—(1), (2), and (3). Other than 
how they use the subscript, these variables work the same as any other 
variables. To see for yourself, type both of these lines: 


PRINT Ai B3 C SENTER? 
PRINT AC(1)3 A(2)5 A(3) <ENTER? 


Now take a quick look and compare the two programs below. Both work 
the same: Program 1 uses ‘’simple variables’; Program 2 uses ‘‘subscripted 
variables.” 


PROGRAM 1 


1@ DATA143, 215+; 125+ 331+ 442 
20 DATA 324, 213+ 115,318, 314 
30 DATA 223+ 152+ 314+ 92 

40 READA:B;+C+D;sE 

50 READF+G+H» I+ J 

6@ READK+L+M+N 

70 INPUT "DISTRICT NO, (1-14)"5 
You don’t need to study 75 IF 2214 THEN 70 

these programs if you’re an- 98@ IF Z=1 THEN PRINT A "VOTES" 


hd 


xious to move on. We're just 70 IF Z=2 THEN PRINT B "VOTES" 

palates 100 IF Z=3 THEN PRINT C "VOTES" 
11@ IF Z=4 THEN PRINT D "VOTES" 
120 IF Z=5 THEN PRINTE "VOTES" 
13@ IF Z=G THEN PRINT F "VOTES" 
14@ IF Z=7 THEN PRINT G "YOTES" 
150 IF Z=8 THEN PRINT H "VOTES" 
16@ IF Z=9 THEN PRINT I "VOTES" 
170 IF Z=1@ THEN PRINT J "VOTES" 
18@ IF Z=i1 THEN PRINT K "VOTES" 
190 IF Z=12 THEN PRINT L "VOTES" 
200 IF ciabie THEN PRINT M "VOTES" 
210 IF Z=14 THEN PRINT N "VOTES" 


220 GoTo 70 
PROGRAM 2 


10 DATA143+ 215,125» 331+ 442 
20 DATA 324, 2131+ 115+ 318+ 314 
30 DATA 223,152,314; 92 

4@ DIM A(1i4) 

50 FORX=17014 

62 READ A(X 

70 NEXT X 

80 INPUT "DISTRICT NO(1-14)"i2Z 
85 IF Z? 14 THEN 8O 

90 PRINT A(Z) "YOTES" 

ig@ coTose 


Program 1 is cumbersome to write. Program 2 is short and simple to write. 


Actually, this leaves room 
for 15 subscripted items 


Enter and run Program 2. Here’s how it works: 


eed yeu. couc Casa sub: Line 40 reserves space for a list of information—called an ‘“‘array”’ 
: named A—with 14 subscripted items. 
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° Lines 50 and 70 set up a loop to count from 1 to 14. Line 60 reads all 
14 votes into Array A: 


YOUR COMPUTER ’S MEMORY 


143 A(8) 
A(2) — 215 A(9) — 318 


—s— 115 


A(3) — 125 A(1ia@) — 314 
A(4) — 331 AC11)— 22 
A(3) —> 442 AC12) — > 152 


Alig) —— 314 
At ld) —— +S 32 


A(G) —-+ 324. 
213 


Oo? 
ine 80 asks you to input a subscript, and Line 90 prints the item you 
requested. 


Now that you've stored information in an array, it’s easy to manage it. For 
instance, you can add these lines, which let you change the information: 


92 INPUT "DO YOU WANT TO ADD TO THIS"s R$ 
94 IF R$ = "NO" THEN 8@ 

96 INPUT "HOW MANY MORE YOTES"3$ xX 

97 A(z) =A(Z) + 

98 PRINT "TOTAL YOTES FOR DISTRICT" 2 "IS 


NOW" A(z) 
Or you can add these lines to display the information: The name of the array is A. 
The X j ; 
72 INPUT "DO YOU WANT TO SEE ALL THE TOTALS" 3 ota eA ae 
S$ of the items. 


74 IF S$= "YES" THEN GOSUB 119 
100 GOTO 72 

110 PRINT "DISTRICT"; "VOTES" 
120 FORX=17T014 

139@ PRINT X+ A(X) 

14@ NEXT x 

150 RETURN 


A Second Array 


Assume you also want to keep track of a second candidate’s votes— 


Candidate B: 
ELECTION RESULTS 
District Votes for Votes for 
Candidate A Candidate B 
1 143 678 
2 215 514 
3 125 430 
4 331 475 
5 442 302 
6 324 520 
7 213 613 
8 tS 694 
9 318 420 
10 314 518 
Ki 223 370 
12 152 4i2 
13 314 460 
14 92 502 
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This program is a little tough. 


Skip it and come back to it 
later if it’s slowing you down 
too much. 
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To do this, add another array to the program. Call it Array B. The following 
program records the votes for Candidate A (Array A) and Candidate B 
(Array B): 
19 DATA 143, 215,125, 331, 4427 L dota fw 
2 DATA 324, 2135 114+ 318,» 314 A 
3@ DATA 223; 152+ 314; 92 
4Q DATA G78; 514; 430; 475, 302\_ data fer 
50 DATA 520, 613+ 694+ 420; 518 
6@ DATA 370+ 412+ 460+ 502 
70 DIM A(14)+B(14)—Saeges Asery) 
8@ FORX=1T014 
90 READ A(X read anna A dada 
190 NEXT X 
110 FORX=1i1T0O14 
120 READ B(x Asada amay Bdato 
130 NEXT x 
140 INPUT "DISTRICT NO."3 2 
145 IF Z +14 THEN 140 
150 INPUT "CANDIDATE A OR B"3 R& 
16@ IF R$ = "A" THEN PRINT A(2Z) 
170 IF R$ = "B" THEN PRINT B(2Z) 

18@ GOTO ida 


DO-IT-YOURSELF PROGRAM 19-1 


Write an inventory program that keeps track of 12 items (numbered 
1-12) and the quantity you have of each item. 


Deal the Cards 


To keep track of 52 ‘‘cards,’’ you need to use an array. Erase your program 
and type and run this one: 


40 FORK =17T0 52 
50 C= RND(S2) 

98 PRINT C3 

190 NEXT X 


The computer deals 52 random “‘cards,”’ but if you look closely, you see 
that some of the cards are the same. 


To make sure the computer deals each card only once, you can build 
another array—Array T—that keeps track of each card dealt. Add these 
lines: 


> DIM T(S2) 

1@ FORX=i1TO52 

20 T(X) =X 

3@ NEXT X 
The above lines build Array T and put all 52 cards in it: T(1) = 1, T(2) = 2, 
T(3) = 3... 7(52) = 52. 
Then add some lines that “erase’’ each card in Array T after it’s dealt. Type: 


60 IF T(C) = @ THEN 38 
82 T(C)=90 


Now the computer can’t deal the same random card twice. For example, 
assume the computer first deals a two. Line 80 changes T(2)’s value from 2 
to 0. 


Then assume the computer deals another two. Since T(2) now equals 0, 
Line 60 goes back to Line 50 to deal another card. 


Run the program. Note how the computer slows down at the end of the 
deck. It must try many different cards before it finds one that it hasn’t dealt 
yet. 


To play a card game, you need to keep track of which cards have been 
dealt. You can do this by building another array—Array D. Add these lines, 
which store all the cards, in the order they are dealt, in Array D: 


7 DIM D(S2) 
70 D(X) = TCC) 
90 PRINT D(XK)3 


DO-IT-YOURSELF PROGRAM 19-2 


Add lines to the program so that it displays only your ‘‘hand’’—the first 
5 cards dealt. 


Learned in Chapter 19 
BASIC WORD BASIC CONCEPT 
DIM arrays 


Notes 
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CHAPTER 2 


MANAGING WORDS 


In the last chapter, you used arrays to manage numbers. Here, you'll use 
arrays to manage words by editing, updating, and printing an entire essay. 


Start with a simple list of words: a shopping list: 


1. EGGS 7. TOMATOES 
2. BACON 8. BREAD 

3. POTATOES 9. MILK 

4. SALT 10. CHEESE 

5. SUGAR 11. FISH 

6. LETTUCE 12. JUICE 


The dollar sign’s the only dif- 
ference between these sub- 
scripted variables and the | Assign each word to a subscripted variable—this time use a subscripted 


ene’ Jp the tast chapter. string variable. For example, for the first three items, type: 


S#(1) = "EGGS" <ENTER=? 
$$#(2) = "BACON" <ENTER? 
S$#(3) = "POTATOES" <ENTER> 


To see how the items are stored, type: 
PRINT S#$(1)+ S$(2) + S$(3) <ENTER? 


Now build a program that reads these words into an array named S$ and 
then displays them: 


5 DIM $$(12) 
i1@ DATA EGGS» BACON, POTATOES; SALT 

29 DATA SUGAR; LETTUCE» TOMATOES; BREAD 
30 DATA MILK» CHEESE» FISH» JUICE 

40 FOR X = 1 TO 12 ' 

50 READ S#(X fAtade duay s* 
62 NEXT X 

70 PRINT "SHOPPING LIST:" 

80 FOR X = 170 12 

99 PRINT x 
100 NEXT x 
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DO-IT-YOURSELF PROGRAM 20-1 


Add some lines to the above program so that you can change any item 
on this list. 


DO-IT YOURSELF PROGRAM 20-2 
Want to compose music? 


Here is a program that uses an array to write song lyrics. Look up “Music Composer’’ 
DIM A#(4) in the ‘Sample Programs’ 


PRINT “TYPE 4 LINES" appguers 


FOR X = 170 4 
INPUT A(X) 
NEXT X 
CLS 
PRINT "THIS IS YOUR SONG:" 
PRINT 
FOR X = 1 TO 4 
PRINT X53 " "3 AS(X) 
100 NEXT X 


Add some lines so that you can revise any line. 


Haven't heard of word pro- 


oge . cessing? It’s a kind of pro- 

Writing an Essay gram that lets you type and 

store information, make 

(. ee A Novel, Term Paper se .) changes to it, and print it out 


on demand. 
Now that you've learned how to use string arrays, it will be easy to write a 
program that stores and edits what you type. Type this program: 


1 CLEAR 1000 

S DIM A$(5@) 

10 PRINT "TYPE A PARAGRAPH" 

2 PRINT "PRESS </> WHEN FINISHED" 


3@ k = il 

40 At = INKEYS 

50 IF A# = "" THEN 40 

GQ PRINT As; 

7®@ jIF A$ = "/" THEN 118 Se TRIE 
\, - Ww eed a reire. ron so 

of Eee) © ce = me a this? CLEAR is ia Chapter 6 

—_ me Ae +" THEN K = X + 1 and INKEY$ is in Chapter 11. 

11@ CLS 

120 PRINT "YOUR PARAGRAPH:" 

130 PRINT 


14@ FOR Y = i TO XK 
15@ PRINT AS(Y)3 
16@ NEXT ¥Y 
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Run the program. To see how each sentence is stored, type these lines: 


PRINT A%$(1) (ENTER 
PRINT A%(2) (ENTER) 
PRINT A$(3) 


Here’s how the program works: 

Line 1 clears plenty of string space. 

Line 5 saves room for an array named A$ that may have up to 50 sentences. 
Line 30 makes X equal to 1. X will be used to label all the sentences. 


Line 40 checks to see which key you are pressing. If it is nothing (“’ ’’), Line 
50 sends the computer back to Line 40. 


Line 60 prints the key you pressed. 


Line 70 sends the computer to the lines that print your paragraph when you 
press the ““/” key. 


Line 80 builds a string and labels it with number X. X is equal to 1 until you 
press a period (.). Then Line 80 makes X equal to X + 1. 


For example, if the first letter you press is ‘’R,”’ 
A$(1) EQUALS “‘R”’. 
If the second letter you press is ‘‘O”, 


A$(1) EQUALS A$(1) - WHICH IS “’R” + “O” 
OR 
“ARO” . 


Assume that when A$(1) equals ROSES ARE RED, you press a period. A$(1) 
then equals the entire sentence: ROSES ARE RED. The next letter you press 
is in A$(2). 


Lines 140-160 print your paragraph. 


DO-IT-YOURSELF CHALLENGER PROGRAM 20-3 


Here’s a tough one (but it can be done!) for those intrigued with word 
processing. Change the above program so that you can: 


1. Print any sentence 
2. Revise any sentence 


You may need to review the challenger program in Chapter 12. Our 
answer's in the back. 


Using the Printer 


If you have a printer, connect it now by plugging it into the jack marked 
SERIAL I/O. Turn on the printer and insert paper. The manual that comes 
with the printer shows how. 


Ready? Type this short program: 


1@ INPUT AS 
20 PRINT # - 2+ AS 


Now type: 
LLIST (ENTER 


If your program doesn’t list on the printer, be sure the printer is on, 
“on-line,” and connected to your keyboard. Then type LLIST “ENTER? 
again. 

Run the program and watch the printer work. PRINT # - 2, tells the 
computer to print, not on the screen, but on device # - 2, which is the 
printer. Be sure to type a comma after the -2, or you get a syntax error. 


Press the (GHIFT) and (Q) (zero) keys simultaneously and release them so 
that the letters you type appear in reversed colors on your screen (green 
with a black background). You are now in an upper- lowercase mode. The 
reversed colored letters are actually lowercase (noncapitalized) letters. 


To type a capital letter, use the (GHIFT) key as you do with a typewriter. It 
appears in regular colors. 


Run the program, using the (SHIFT) key so that the word RUN is capital- 
ized. Input a sentence with both upper- and lowercase letters. Type: 


MY PRINTER PRINTS LOWERCASE LETTERS (ENTER 


DO-IT-YOURSELF PROGRAM 20-4 


Look at the “Writing an Essay” program earlier in this chapter. Change 
Lines 140-160 so that the paragraph prints on the printer rather than 
the screen. 


Learned in Chapter 20 
BASIC WORDS BASIC CONCEPT 


LLIST string arrays 
PRINT # - 2 


Notes 


Having trouble getting into 
this mode? Read the end of 
Chapter 1. 


All the letters in RUN should 
appear in regular (not re- 
versed) colors. 
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CHAPTER 21 


SORTING 


You can easily make the 
computer alphabetize more 
words by changing the 5 to 
say, 100, in Lines 10, 20, 70, 
and 90. 
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Any file clerk knows it’s easier to find information that’s sorted alphabeti- 
cally. Type this program and run it, until you’re convinced the computer 
can alphabetize: 


30 


INPUT "TYPE TWO WORDS"$ AS, BS 

IF AS < B$ THEN PRINT A$ " COMES BEFORE " BS 
IF A$ > B$ THEN PRINT A% " COMES AFTER " BS 
IF AS = BS THEN PRINT "BOTH WORDS ARE THE 
SAME" 

GOTO 19 


With strings, the greater than (>), less than (<), and equal (=) signs have a 
new meaning. They tell which of two strings comes before the other in 
alphabetical sequence: 


precedes alphabetically 

precedes or is the same alphabetically 
follows alphabetically 

follows or is the same alphabetically 
is the same 


Since the computer can alphabetize, it’s easy to write a sorting program. 
Type and run this program, which sorts 5 words: 
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DIM A$(35) 

FORI=1T05 

INPUT "TYPE A WORD"$ AS(T) 
NEXT I 

K=O 

KX #1 

IF X > 5 THEN GOTO 78 

IF A$(X)="ZZ" THEN 6 
FORY=1705 

IF AS(Y) < A$(K) THEN X = Y 
NEXT ¥ 

PRINT AS( XK) 

A$(X)="22" 


GOTO 5a 


Ya 
~~ = 


To see how the program works, delete Line 120 and add the following 
lines. (These lines only show what the program does—they have nothing to 


do with sorting.) 


120 

>» CLS 

45 CLS 

85 Yeti 

105 PRINT @15+32#(U-1) + AS(X) 
135 GOSUB 500 

500 FORI=1TO5 


510 PRINT @ @+32*(1-1) sAS(I) 5" ? 


520 NEXT I 
5930 RETURN 


Run the program. Too fast? Type this line. It slows down the program so 


you can see what's happening: 
197 FORT =1T0 G8@: NEXT T 


Now run the program again. Input these words and watch carefully: 


MICHAEL 
TRAVIS 
DYLAN 
ALEXTA 
SUSAN 


Look at Column 2. See how the first name changes from Michael to Dylan 
to Alexia. Next, notice what happens to Alexia in the first column. Alexia 


becomes ZZ. 


This illustrates how the program sorts the first and second words: 


FIRST WORD 
MICHAEL MICHAEL MICHAEL MICHAEL MICHAEL 


TRAVIS TRAVIS TRAVIS 
DYLAN DYLAN DYLAN 
ALEXIA ALEXIA ALEXIA 
SUSAN SUSAN SUSAN 
MICHAEL DYLAN MICHAEL ALEXIA MICHAEL 
TRAVIS TRAVIS TRAVIS 
DYLAN DYLAN DYLAN 
ALEXIA ALEXIA Ze 
SUSAN SUSAN SUSAN 


SECOND WORD 


MICHAEL ALEXIA MICHAEL ALEXIA MICHAEL 
TRAVIS MICHAEL TRAYIS MICHAEL TRAVIS 


MICHAEL ALEXIA MICHAEL ALEXIA MICHAEL 
TRAVIS DYLAN TRAVIS DYLAN TRAVIS 


MICHAEL 


ALEXKIA 


ALEXIA 
MICHAEL 


ALEXIA 
DYLAN 
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Here’s how the program works: 
Lines 50 and 60 set X’s value. At the start, X is 1. 


Then Lines 90-110 compare A$(X)—Michael—with every other name in 
Array A$ until a word is reached that precedes Michael—Dylan. 


Line 100 then makes A$(X) equal to Dylan’s place in the array: A$(3). 
When Dylan is compared with the fourth word—Alexia—A$(X) becomes 
A$(4). 


When all the words have been compared with one another, Line 120 
displays the first sorted word: Alexia. Line 130 changes Alexia’s position— 
A$(4)—to ZZ. 


At this point, Lines 50 and 60 make X equal 1 again. A$(X)—Michael—is 
compared with other names in the array to find the second sorted word. 


When Michael’s place in the array becomes ZZ, Line 60 sets X to 2. Then, 
A$(X)—which is now Travis—is compared with all the names in the array 
to find the next sorted word. 


When the array’s values are all changed to ZZ, Line 70 ends the program. 


DO-IT-YOURSELF PROGRAM 21-1 


Using this sort routine, change the program from the last chapter so 
that it alphabetizes your books by title, author, or subject. 


This chapter shows a simple way to sort. If you need to sort many items, 
you may want to research faster sorting methods (such as the bubble sort). 


Learned in Chapter 21 
BASIC SYMBOLS 


CHAPTER 22 
ANALYZING 


If you have more than 4K RAM, you have an easy way to analyze informa- 
tion. By giving each item more than one subscript, you can see it through 
different dimensions. 


Take the voting program from Chapter 19. Here’s the information. (We're 
using only the first three districts to make the program simple.) 


ELECTION POLL 


We’re only using three dis- 
tricts to keep it simple. ; 


District Votes for Votes for We're callin j 
3 : g them Candi- 
Candidate 1 Candidate 2 dates 1 and 2 this time rather 
1 143 678 than Candidates A and B. 
2 215 514 
3 125 430 


In Chapter 19, you stored the above “items’’ (groups of votes) in two 
one-dimensional arrays: Arrays A and B. In this chapter, you'll store them 
‘in one easy-to-manage two-dimensional array: Array V. 


“oN 


The following program puts the items in Array V. 


S DIM W(3s2) 

12 DATA 143; G78+ 215+ Sid» 125+ 430 
20 FOR D = 1 T0 3 

30 FOR C = i1T0 2 

40 READ Y(D+C) 

o@ NEXT C 

60 NEXT D 


70 INPUT "DISTRICT NO. (1-3)"5 D 
82 IF D «= 1 OR D } 3 THEN 78 

92 INPUT "CANDIDATE NO. (1-2)"5 C 
100 IF C «= @ OR C > 2 THEN 90 

110 PRINT Y(D+C) 

120 GOTO 70 


Type and run the program. Notice that each item is labeled by two 
subscripts. 
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Remember how to delete 


lines? 70 (ENTER) Deletes 
Line 70. 


If you are truly an analytical 
type, you're going to love 
the rest of this chapter. If 


you're definitely NOT that 
type, skip it! 
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Here’s how the program works: 


Line 5 reserves space in memory for Array V. Each item in Array V can have 
two subscripts: the first, no higher than 3; the second, no higher than 2. 


Lines 20-60 read all the votes into Array V, giving them each two 
subscripts: 


. The first subscript is the district (Districts 1-3). 
. The second subscript is the candidate (Candidates 1-2). 
YOUR COMPUTER ’S MEMORY 


YCisi)—i143 YC1+2)—>678 
YC291)—215 U(2s2)—»514 
YVC3e1)—125 Y(3+2)— 4308 


For example, 678 is labeled V(1,2). This means 678 is from District 1 andis 
for Candidate 2. 


With all the votes in a two-dimensionai array, it’s simple to analyze 
them—in two dimensions. By adding these lines, for example, you can 
print all the votes in two ways: by district and by candidate. 


(Delete Lines 70-120 first.) 


70 INPUT "TYPE « 1 > FOR DISTRICT OR 
< 2 > FOR CANDIDATE": R 

80 IF R < 1 OR R > 2 THEN 70 

120 ON R GOSUB 1008; 2000 

110 GOTO 78 


1000 INPUT "DISTRICT NO(1-3)"35 D 

1018 IF D« 1 OR D = 3 THEN 1000 

1O15 - CLS 

1020 PRINT @ 132+ "VOTES FROM DISTRICT" D 
1038 PRINT 


ig40 FOR C = i702 


1@50 PRINT "CANDIDATE" C+ 

1060 PRINT YW(D+C) 

1970 NEXT C 

1080 RETURN 

2000 INPUT "CANDIDATE NOC(i-2)"5 C 

2010@ IF C ¢ 1 OR C } 2 THEN 2000 

2015 CLS 

2020 PRINT @ 132, "VOTES FOR CANDIDATE" C 
2030 PRINT 


2040 FOR D = 1 TO 3 


2050 PRINT "DISTRICT" D+ 
2060 PRINT Y(D+C) 

2070 NEXT D 

2080 RETURN 


The Third Dimension 


You can continue with as many dimensions as you want. You're limited 
only by how much information you can fit into the computer’s memory. 


Add a third dimension to Array V: interest groups. Here’s the information: 


VOTES FROM INTEREST GROUP 1 


Candidate 1 Candidate 2 
District 1 143 678 
District 2 215 514 
District 3 125 430 
VOTES FROM INTEREST GROUP 2 
Candidate 1 Candidate 2 
District 1 525 54 
District 2 318 157 
District 3 254 200 
VOTES FROM INTEREST GROUP 3 
Candidate 1 Candidate 2 
District 1 400 119 
District 2 124 300 
District 3 75 419 


To get all this into your computer’s memory, erase your program and type: 
S DIM V(3+392) 


10 DATA 143+ 678s 215+ Sid» 125+ 4308 
20 DATA 525% 54+ 318+ 1575 254+ 200 
30 DATA 400, 119+ 124, 300, 75, 419 
4@ FOR G = 1 T0 3 

5@ FOR D = 1 7T0 3 

6@ FOR C=i1T0 2 

7@ READ Y(G+D1C) 

B@ NEXT C 

92 NEXT D 

100 NEXT G 

110 INPUT "INTEREST GROUP NO (1-3)"5 G 
120 IF G *< 1 O0R G = 3 THEN 118 

13@ INPUT "DISTRICT NO. (1-3)3 D 

140 IF D« 1 OR D ? 3 THEN 138 

15@ INPUT "CANDIDTE NO. (1-2)"5 C 
168 IF C «< 1 OR C } 2 THEN 158 

170 PRINT V(GsD+C) 

180 GOTO 118 


Run the program and test the subscripts. Lines 40-100 read all the votes 
into Array V, giving them each three subscripts: 


. The first subscript is the interest group (Interest Groups 1-3). 


. The second subscript is the district (Districts 1-3). 


. The third subscript is the candidate 
YOUR COMPUTER ’S MEMORY 


YCLelel) 143 
Udls2+1) 215 
YWC1s3e1)—~%125 
WC2e191)~%525 
V(2+2+1)~318 
U(293+1) 254 
YU(Br+1+1)+> 400 
WC3B»2+1)—~%124 
VC3s3+1)%75 


(Candidates 1-2). 


YCl+1ls2)—~>678 
YWCil»2s2)—~514 
YC1+93192)~> 430 
W(2+1+2)~54 

W(29292)~ 157 
V(21312)+% 200 
W(3e192)~119 
V(3+212) +300 
V(393+2) +419 


For example, 678 is now labeled V(1,1,2). This means 678 is from Interest 
Group 1, is from District 1, and is for Candidate 2. 


To take advantage of all three dimensions, delete Lines 110-180 and type: 


11@ PRINT: PRINT "TYPE <1> FOR GROUP" 

12@ PRINT "<2> FOR DISTRICT OR <3> FOR 
CANDIDATE" 

130 P = 224 : INPUT R 

1409- ON R GOSUB 1000,2000,3000 

15@ GOTO 1190 


1000 INPUT "GROUP(1-3)"5 G 

1010 IF Gti OR G33 THEN 1000 

1020 CLS 

1030 PRINT @ 102, "VOTES FROM GROUP" G 
1040 PRINT @ 168, "CAND. 1" 

1950 PRINT @ 176» "CAND. 2" 

1@6@ FOR D = i170 3 

1070 PRINT @ P+ "DIST." D 

198@ FOR C =1T0 2 

1100 PRINT @ P + 8#Cy Y(G»D»C)5 


1110 NEXT C 
1120 P= P+ 32 
1130 NEXT D 
1140 RETURN 


2000 INPUT "DISTRICT(1-3)"5 D 
2010 IF Dé<i OR D3 THEN 2800 
2020 CLS 


102, "YOTES FROM DIST." D 
168, "CAND. 1" 
176, "CAND. 2" 


2060 FOR G 1 TO 3 
2070 PRINT P, "GROUP" G 
2080 FOR C 17T02 


bd 
t=] 
ol 
Ss 
vu 
a 
Ll 
Zz 
= 
ol au @ ao w 


P + 8¥C+V(GsD1C)5 


2120 P =P + 32 
2130 NEXT G 
2140 RETURN 


30900 INPUT "CANDIDATE(1-2)"5 C 
3010 IF Ct1i OR C2 THEN 3000 
3028 CLS 
3030 PRINT 
3040 PRINT 
3850 PRINT 


i@2, "VOTES FOR CAND." C 
168, "DIST. 1" 
176, "DIST. 2" 


"TET. 2° 
3070 FOR G= 1703 
3080 PRINT @ P+ "GROUP" G 
3090 FORD =1703 


ies] 
L] 
oa 
Ls] 
uv 
al 
m 
=z 
=| 
apa umpm i ® @ ww w 
_ 
oo 
Pay 


P + 8#D» Y(G»D»C)5 
3120 P= P + 32 
3140 RETURN 
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Run the program. You can now get three perspectives on the information. 


DO-IT-YOURSELF PROGRAM 22-1 


Write a program to deal the cards using a two-dimensional array. 
Make the first dimension the card’s suit (1-4) and the second dimen- 
sion the card’s value (1-13). 


Learned in Chapter 22 
BASIC CONCEPT 


Multidimensional arrays 


Notes 
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SECTION IV 


A LITTLE BYTE OF 
EVERYTHING 


This section is for people who want to access the full power of the Color Computer. 
It assumes some knowledge in machine-language programming. 


If you're technical, jump right in! If not, be forewarned. You'll have to be extra 
careful typing the sample programs. Then triple-check them against our program 
listings before running them. If your program contains typing errors, you'll probably 
have to reset the computer to regain control. 


The results of your labors will be impressive. Part A shows how to create high- 
resolution graphics on your screen. Part B shows how to access the Color Computer 
hardware directly by calling machine-language routines. 


PART A 


HIGH-RESOLUTION 
GRAPHICS 


CONTENTS OF THIS PART 


INTRODUCTION 
SAMPLE PROGRAMS (3) 
A FEW DEFINITIONS 
PREPARING THE COLOR COMPUTER FOR GRAPHICS 
PUTTING GRAPHICS TO WORK 
TABLES: 
1. DESCRIPTION OF THE GRAPHICS MODES AVAILABLE 
2. DISPLAY MODE SELECTION 
3. VIDEO RAM PAGE SECTION 
4, DETAILED DESCRIPTION OF THE GRAPHICS MODES 


INTRODUCTION 


The Color Computer has many graphics capabilities that you cannot access using 
the ordinary statements of Color BASIC. However, with the special memory 
functions PEEK and POKE, you can use and experiment with many of these 
powerful features. It does take some extra work on your part, but the results can be 
impressive. In this part we’re going to demonstrate how you activate and use these 
graphics features. 


Note: In Extended Color BASIC, many of the graphics capabilities are quite simple 
to use. That’s one of the main attractions of Extended Color BASIC. However, even 
if you have Extended BASIC, you may find this part interesting. Some of the graphics 
modes described may only be used via the techniques presented in this part. 


First, we'll list two Color BASIC programs that demonstrate how to select and use a 
graphics mode. The first runs on 4K or 16K RAM systems; the second, on 16K only. 
We've also included a general-purpose program that you can modify to select any 
graphics mode (it'll be up to you to put the graphics to use). 


After you've tried the programs, you'll be ready for an explanation of how they 
work. We'll start with a few definitions you'll need. Then we'll go over the steps 
required to put the computer into any graphics mode. These steps aren’t meant to 
be followed one at a time; they should be put into your BASIC program and then 
executed in succession. 


Finally, we'll suggest a few ways you can put graphics to work. 


SAMPLE PROGRAMS 


PROGRAM #1: 64 x 64 GRAPHICS MODE FOR 4K OR 16K RAM SYSTEMS 


This program makes Color Computer act like a drawing board with a 64 x 64’grid. 
You may choose between two sets of four colors: 


Set 1 
Buff 
Cyan 


Magenta 
Orange 


Type in the program. Be sure to omit all remarks (lines or a portion of a line 
beginning with an apostrophe). Also delete all spaces before and after punctua- 
tion marks and arithmetic operators (., ; : + —/*><=). You must have at least 


124 


335 bytes (characters) remaining in memory to run the program. You can check this 
by having the computer PRINT MEM after the program is typed in. Check the 
program carefully. Then run it. 


After a few seconds, a block appears in the middle of the screen. You may move the 
block, drawing a line in any of four colors; you may switch color sets; and you may 
stop the line. Here is a list of the keys that control the drawing board: 


Direction of motion: 


North (up) 
South 

West 

East 
Northwest 
Northeast 
Southwest 
Southeast 
Stops motion 


Four-Color Set: 


Color 1 

Color 2 

Color 3 

Color 0 (background color) 
Change to other four-color set 


To return to BASIC’s normal text screen, press the RESET button. 


Becs) i 


PROGRAM #1 LISTING 


10 ‘RESERVE ik 

2 CLEAR 10,3071 

30 4‘’SET YIDRAM = 3072 

4® FOR I = @ TO G: READ DT: POKE 65478 + I*¥2 + DT» 
@: NEXT 

5@ DATA O+1+11+8101010 

60 ‘SELECT YDG MODE GiC 

70 FOR I = @ TO 2: READ DT: POKE G5472 + I¥2 + DT» 
@: NEXT 

82 DATA 1:+850 

90 ‘SET UP VIDEO CONTROL REG, 

10@ POKE 65314, 135 

110 ‘CLEAR VIDRAM 

120 FORI = 3072 TO 4095: POKE I+0: NEXT 

130 ‘BEGIN MAIN PROGRAM 

140 ‘’MP( ) IS A LIST OF POWERS OF 4 

15@ ‘’ TO BE USED BY THE MAPPING FUNCTION 

160 DIM MP(3): FORI = @ TO 3: READ MP(I): NEXT 

170 DATA 1+4+16+64 

180 CC = 3: CS = @ ‘CC 
SELECT 

190 X = B31: Y = Bi: KI = @: YI = 8 ‘STARTING POINT 
AND INCREMENT 

200 ‘SET UP KEYBOARD TABLE 


COLOR; CS = COLOR SET 


210 US = "A": DS = CHRS(10): WS = CHR$(8): ES = 
CHR#(9) 
220 NWS = "QO": NES = "HW": SWS = "A": SES = "S" 
230 COS = "GO": C1$ = "1": C2$ = "2": CBS = "B" 
240 ‘CHECK FOR KEYBOARD CHARACTER 
250 AS = INKEYS 
260 IF AS = US THEN YI = -1: XI = @: GOTO 400 
270 IF AS = D® THEN YI = i: XI = @O: GOTO 400 
280 IF A® = WH THEN XI = -1: YI = @ GOTO 4080 
290 IF AS = ES THEN XI = i: YI = @: GOTO 400 
300 IF A$ = NW% THEN XI = -1: YI = -i: GOTO 400 
310 IF A®% = NE# THEN XI = i: YI = -1: GOTO 40 
320 IF AS = SWS THEN XI = -1i: YI = 1: GOTO 400 
330 IF AS = SE# THEN XI = 1: YI = 1: GOTO 400 
340 ‘CHANGE COLORS IF @-3 WAS PRESSED 
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35@ IF COs ¢ = AS AND AS «= = CBS THEN CC = ASC(AS) 
- 48: GOTO 400 

360 ‘CHANGE COLOR SET IF "/" WAS PRESSED 

370 IF A% = "/" THEN CS = (NOT CS AND 8) OR (CS AND 
NOT 8): POKE 65314+135 + CS: GOTO 400 

380 IF AS = CHR#(32) THEN XI = @: YI = @ ‘STOP 
DRAWING IF <SPC} WAS PRESSED 

390 ‘GET NEW (xX»¥) POSITION 

400 X = X + KI:s Y = ¥ + YI: IF X 4 @ THEN K = @ 

41®@ IF X = 63 THEN XK = 63 

420 IF Y «= @ THEN Y = @ 

430 IF ¥ } 63 THEN Y = 63 

440 ¢’ PLOT THE (X+¥) POINT 


45@ X1 = INT(X/4): OF = X1 + Y#16: BYTE = 3072 + OF 
7460 MOD4=INT(K-X1*4) :BIT=3-xXMOD4 

470 K3 = MP(BIT)#*CC: K4 = MP(BIT)*3 

480 OL = PEEK(BYTE) 

490 TE = (255 AND NOT X4) OR ( -256 AND XK4): NU = 


(TE AND OL) OR & 
500 POKE BYTE+ NU 
518 GOTO 238 


Note for Extended BASIC Users: The 64 x 64 mode is not available in Extended 
BASIC; however, this program will get it for you. First, however, make these 
changes in the program: 


20 CLEAR 10, 15359 

30 ‘SET YIDRAM = 15360 

5@ DATA Orlsisiri+O+d 

120 FOR I = 15360 TO 16383: POKE I+ @: NEXT 

450 1 = INT(X/4): OF = X1 + Y#1G: BYTE = 15360 + 
OF 


t 


PROGRAM #2: 235 x 192 GRAPHICS FOR 16K RAM SYSTEMS 


This program shows the highest resolution available on Color Computer. Because it 
requires 6144 bytes of RAM for the graphics screen, it will not run on a 4K RAM 
system. 


The program draws lines on the screen. You type in (X,Y) coordinates for the starting 
and ending points, then the program goes into the graphics mode and draws the 
points. You can then press any key, and the program will ask you for another pair of 
coordinates. 


Type in the program. BE SURE TO OMIT ALL REMARKS (STATEMENTS BEGIN- 
NING WITH AN APOSTROPHE). Check the program carefully. Then run it. There 
will be a one-minute delay before you see the program begin. 


If you interrupt the program while it is in the graphics mode, you will need to reset 
the computer to get back in the normal mode. 


PROGRAM LISTING 


10 ‘RESERVE GK 

20 CLEAR 10,10239 

30 ‘SET START AND END OF YIDEO RAM 

4@ YIDRAM = 10@248:VND = 16383 

5@ PSEL = 65478 ‘START OF PAGE SELECT REG, 

6@ YDG= 65472 ‘START OF YDG REG. 

7® YCTRL = 65314 ‘VIDEO CONTROL REG, 

82 ‘’X(@) AND ¥Y(®) WILL BE COORDINATES OF START POINT 
90 ‘M$(0) AND M$(1) WILL BE MESSAGES 

100 DIM X(1)s¥(1) »M$(1) 

11@ ‘PHC ) AND YH( ) CONTAIN HI-RES. BIT PATTERN 
120 ‘PAC ) AND YAC ) CONTAIN TEXT BIT PATTERN 
13@ ‘TWOC( ) CONTAINS ALIST OF POWERS OF 2 

140 DIM PH(G) +PA(G) +Y¥YH(2) sVACZ) »sTWOC?) 

150 FOR I=9@® TOG: READ PH(1I):NEXKT 

160 DATA B+O+l+G+1+8+0 

17@ FORI=9®TOG: READ PA(I): NEAT 


180 
1990 
200 
210 
22 

230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


3708 
380 
390 
40a 
410 


420 
430 
440 
430 
460 
470 
480 
490 
300 
510 
520 
B25 
530 
3408 
558 
568 


570 
380 
585 
398 
Baa 
610 
620 
630 
640 
650 
660 
‘670 
680 
690 
700 
710 
720 
738 
740 
750 
768 
770 
780 
798 
800 
8190 
820 


DATA O91 1010191850 

FOR I=@TO 2: READ YVH( I): NEX 

DATA Oli +l 

FOR I =@TO 2: READ VA(I): NEXT 

DATA 1050 

READ CH ‘HI-RES BIT MASK FOR VID-.CTRL. REG. 

DATA 240 

READ CA ’TEXT BIT MASK FOR VID.CTRL. REG, 

DATA @ 

FOR I =@TO7: READ TWO(I): NEXT 

DATA 1+214+8516:32 1645128 

GOSUB 880 ‘CLEAR OUT YVIDRAM 

‘MAIN PROGRAM 

M$(Q) = "FIRST": M#(1) = "SECOND" 

FORI =@TO1 

PRINT "ENTER "3 M$(I)5 " X AND ¥" 

PRINT "@£ =X ¢=255,0¢ 2+Y¢ 2191" 

INPUT X(I) + YC(I) 

IF X(I) ¢ @OR X(1I) 2 EBS OR Y(I) ¢ @ORYC(I) 2 191 

THEN 340 

NEXT 

GOSUB G28 ‘GO INTO GRAPHICS 

‘DX »DY CONTAIN X+¥ DISPLACEMENTS 

‘SX +SY CONTAIN DIRECTION OF THE LINE 
M=KC1) - K(@) i DY = ¥C1) - ¥(@): SX = SGN(DX): SY 

= SGN(DY) 

‘USE EQUATION Y = SLOPE *¥*X +B 

“SL = SLOPE OF LINE: B = OFFSET FROM k-AXIS 
IF DX = @ THEN 5590 ‘SPECIAL CASE FOR VERTICAL LINES 

SL =DY/DX: B=Y¥(0@) - SL * K(O) 

T=SL*SL+ i: GOSUB 930 ‘GET SOR(T) 

NX =1/T1 * SX ‘NX IS INCREMENT FOR X 

FOR XT=X(@) TO X(1) STEP NX 

X= INTCXT + .5) 

Y= INT(SL * KT+B+.5) 

GOSUB 830 

NEXT 

AS = INKEY$: IF A$ = "" THEN 525 

GOSUB 638 ‘GO INTO TEXT 

GOTO 320 ‘GET NEXT PAIR OF POINTS 

X= K(O) 

FOR Y = ¥(@) TOY(1) STEP SY ‘DRAW VERTICAL LINE 

THRU K(@) ‘ 

GOSUB 830 

NEXT 

IF INKEY$="" THEN 585 

GOSUB §3@ : GOTO 320 

“END OF MAIN PROGRAM 

‘SUBRTNS TO SELECT GGR AND TEXT 

GOSUB 65@ : GOSUB 78@ : GOSUB 75@ : RETURN 

GOSUB 670 : GOSUB 728 : GOSUB 772 : RETURN 
‘PAGE-SELECT SUBRTNS 

FORI = @TOG: POKE PSEL + I * 2 + PH(1I) +@: NEXT 

RETURN 

FORI =@TOG: POKE PSEL + I * 2+ PA(I) +@: NEXT 

RETURN 

‘WDG SELECT SUBRTNS 

FORI=@TO2: POKE YOG + 1* 2+ YVH(I) +8: NEXT 

RETURN 

FORI=@TO 2: POKE YDG + 1* 2+ YA(I) +O: NEXT 

RETURN 

‘SUBRTNS TO SET UP VIDEO CONTROL REG, 

POKE YVCTRL» CH OR (PEEK(YCTRL) AND 7) 

RETURN 

POKE YVCTRL+ CA OR (PEEK(YCTRL) AND 7) 

RETURN 

“SUBRTN TO CLEAR OUT VIDEO RAM 

FOR I = VIDRAM TO YND:POKE I+@: NEXT 

RETURN 

“MAPPING FUNCTION 
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830 x1 = INT(X/8) 

840 OF =X1+Y¥ * 32: BYTE = YIDRAM + OF 
850 MODS = INT(X - K1 * 8) 

860 BIT=7 - XMOD8 

870 VLU = TWO(BIT) 

880 OLD = PEEK(BYTE) 


890 MASK = YLU OR OLD 

900 POKE BYTE »MASK 

910 RETURN 

920 ‘SOR(X) SUBRTN 

930 IFT =@THENT1 = @: RETURN 

940 Ti=T#.5:T2=90 

950 T3=(T/T1-T1) *-5 

960 IF (T3 = @) OR (T3 = T2) THEN RETURN 
970 Ti=T1i+T73: 72 = 73: GOTO 950 


Note: This entire program can be duplicated using the LINE statement of Extended 
BASIC. However, if you wish to use it for experimentation, it will run without 
modification under 16K Extended BASIC. 


PROGRAM #3: GENERAL-PURPOSE SUBROUTINES 


You may use these subroutines to select any graphics mode (subject to the RAM 
limitations of your computer and the requirements of your main program). You 
supply the main program to write information onto the graphics screen. You also 
provide the correct values for Lines 20 and 40. 


Later in this section, we provide hints on designing your main program (Putting 
Graphics to Work). = 


PROGRAM LISTING 


10 “RESERVE RAM FOR GRAPHICS 

20 “CLEAR STRINGSPACE » MEMEND 

30 ‘SET START AND END OF VIDEO RAM 

4@ “UIDRAM = MEMEND + 1: VND = 4095 OR 16383 

o@ PSEL = 65478 ‘START OF PAGE SELECT REG. 

6a YDG = 65472 ‘START OF YVDG REG. 

70 VCTRL = 65314 ‘YIDEO CONTROL REG. 

1020 DIM XK(1)5Y¥C1)+M$(1) 

110 “PH() AND YH() CONTAIN THE GRAPHICS BIT PATTERN 

120 ‘’PA() AND YA() CONTAIN THE NORMAL (TEXT) BIT 
PATTERN 

14@ DIM PH(G)» PA(G)+ YVH(2)+ VAC2) 

150 FOR I=9@%®TOG: READ PH(I): NEXT 

160 ‘DATA X+XsXsXoXoX eX (PAGE-SELECT BIT PATTERN) 

170 FORI=9@®TOG: READ PA(I): NEXT ‘READ NORMAL P-S 
BIT PATTERN 

180 DATA Dsl +B18+18101O 

19@ FORI=@#@TO 2: READ VH(I): NEXT 

200 ‘DATA X+X+X (GRAPHICS BIT PATTERN FOR YDG) 

210 FORI=9@T02: READ YVA(I): NEXT “NORMAL YDG BIT 
PATTERN 

220 DATA G:8+d 

230 READ CH ‘GRAPHICS BIT MASK FOR VID.CTRL. REG, 

240 ‘DATA XXX (VIDEO CONTROL VALUE) 

250 READ CA ‘TEXT BIT MASK FOR YVID.CTRL. REG, 

260 DATA®@ 

290 GOSUB 8@¢@ ‘CLEAR OUT YVIDRAM 


300 

310 ‘YOUR MAIN PROGRAM GOES HERE 
320 =’ 

599 ‘END MAIN PROGRAM  -: 

600 ’ 


610 ‘SUBRTNS TO SELECT GRAPHICS AND TEXT 
620 GOSUB G5@ : GOSUB 702 : GOSUB 75@ : RETURN 
630 GOSUB G70 : GOSUB 728 : GOSUB 778 : RETURN 
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640 ‘’PAGE-SELECT SUBRTNS 

650 FORI =@TOG: POKE PSEL + I * 2 + PH(I) »@: NEXT 
660 RETURN 

670 FORI = @TOG: POKE PSEL +1 #* 2+ PA(I) »@: NEXT 
680 RETURN 

698 ‘VYDG SELECT SUBRTNS 

700 FORI =@TO 2: POKE YDG + I * 2+ YH(I) +O: NEXT 
71@ RETURN 

720 FORI=@TO 2: POKE YDG+I1* 2+ VYA(I) +@: NEXT 
738 RETURN 

740 ‘SUBRTNS TO SET UP VIDEO CONTROL REG. 

758 POKE YCTRL+ CH OR (PEEK(YCTRL) AND 7) 

760 RETURN 

770 POKE YCTRL» CA OR (PEEK(YCTRL) AND 7) 

788 RETURN ‘ 

798 ‘SUBRTN TO CLEAR OUT VIDEO RAM 

800 FORI = YVIDRAM TO VND: POKE I +@: NEXT 

810 RETURN 


A FEW DEFINITIONS 


GRAPHICS 

Graphics is a video mode of the computer in which you can set or reset blocks or 
points called “pixels.” For each pixel, you may choose from 2, 4, or 8 colors, 
depending on the particular mode. selected. By setting various combinations of 
pixels, you can generate lines, geometric figures, pictures, and so on. 


RESOLUTION 

The pixel density (how many pixels to a screen) determines the degree of resolu- 
tion. Depending on the graphics mode, the screen may contain from 2048 (SET/ 
RESET) to 49152 (G6R) pixels. The higher the resolution, the finer the lines and the 
more detailed the pictures. 

To see the importance of resolution, look at these two diagonal lines. The resolution 
of Line B is 4 times as fine as that of line A. 


Line A. Line B. 
Low Resolution High Resolution 


RAM, BYTES, AND BITS 


RAM is divided into individually addressed locations called “bytes.” The addresses 
in RAM run from 0 to 4095 or 16383, depending on whether you have a 4K or 16K 
RAM system. Each address references one byte. 


RAM is ‘Random Access Memory.” This is the area where your computer stores 
programs and data. The computer also uses RAM to store internal values. RAM is 
erased when you turn off the computer. 


One byte consists of 8 on/off switches called “bits.” Here is one byte: 


Bit # 7 65 43 2 1 ~«0 
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Suppose you want to set (set to 1) bit 7 in byte #4000, without changing any of the 
other bits. You simply OR the current contents of #4000 with the binary value 
10000000, which is equivalent to decimal 128: 


NB = PEEK (4000) OR 128 


Since bit 7 is set in the value 128, bit 7 will always be set as a result of the operation. 
The other bits in the result will be the same as those in address #4000. 


VIDEO RAM 


When you output to the screen, the information is actually stored in a portion of 
decimal 0 to 255. (See a math or computer science text for a discussion of binary 
numbering.) 


PEEK AND POKE 


These BASIC words let you examine (PEEK) or change (POKE) the contents of 
memory. Just for review, here is the syntax for each command. The syntax is the 
way the command should be put together. For an example, with POKE you should 
first specify the address, then the value. 


PEEK(address) 
POKE address, value 


PEEK is a function. This means it cannot stand alone in a BASIC program, but must 
be used in a statement such as: 


OLD = PEEK (BYTE) 

OLD will be given the contents of address BYTE. 

POKE can stand alone. It stores the value specified in the address specified. 
POKE BYTE» NU 

The address specified by BYTE will be given the value NU. 


BITS AND BOOLEAN ALGEBRA 


In the graphics modes, one or two bits may control the color or on/off status of a 

Bisel So we need a way to control a single bit or pair of bits without affecting other 
its. 

To change one or two bits in a byte requires a form of computer logic called 


Boolean algebra. Boolean algebra uses logical operators such as AND, OR, and 
NOT. These three are available in Color BASIC. 


AND and OR compare two values bit-for-bit; NOT takes value and reverses the 
state of each of its bits. Here are table summaries: 


Here are some examples of Boolean operations on 1-byte binary values: 


10101010 01101110 
AND 11110000 OR 10001000 
10100000 111011190 


NOT (10101018) = 810101901 


Note: 


(1) In this discussion, we refer to the individual bits using the numbers 
0 through 7, as shown in the diagram. 


(2) When a bit has a value of 1, we say it is ‘set’; when it has a value of 
O, we say it is “‘reset.’’ We use these terms in this way throughout 
this section. 


There are 256 possible on/off combinations for a single byte. The combinations are 
often interpreted as binary numbers ranging from OO000000 to 11111111 or 
memory. The video display circuitry reads from this “video RAM” in order to 
generate the screen display. 


Text goes 
into RAM 


You type: 


" 1 ——— Video 
PRINT "HERE IS A MESSAGE 
Computer generates TV 

the correct display Screen 


Normally, Color BASIC uses the memory area from 1024 to 1535 as video RAM. 
There are 512 distinct memory locations, or ‘‘bytes,” in this-area, enough to hold 
512 alphanumeric characters or 2048 SET/RESET pixels. 


You can program the Color Computer to use any area of RAM as “video RAM.” This 
is desirable when: 


A. You want to use high-resolution graphics that require a large video RAM 
area. 


B. You want to switch back and forth between “‘pages’’ of video RAM. 


High resolution requires a larger video RAM area than does normal text. For 
example, in the highest resolution mode, G6R, 6144 bytes of memory are required 
to store a screenful, or ‘page,’ of information. 


This increased video RAM requirement has to be taken from the ‘‘user area” at the 
top of memory. This limits the space available to your BASIC program. If you have a 
4K RAM machine, you are probably limited to using the G1C and GIR graphics 
modes, which take only 1024 bytes and leave approximately 1300 bytes for your 
BASIC program. If you have a 16K RAM machine, you may use the highest 
resolution mode and still have about 8400 bytes available for your BASIC program. 


VIDEO DISPLAY GENERATOR (VDG) REGISTER 


This consists of three pairs of addresses in RAM that control the graphics mode. (See 
Table 1 for a description of the graphics modes available.) These addresses are not 
actual bytes in RAM, but are direct links to the VDG circuitry in the computer. 


DISPLAY CONTROL REGISTER 


This is a single memory location that determines which color set is available; it also 
plays a role in selecting the graphics mode. This address is not an actual byte in 
RAM, but is a direct link to certain display control circuitry in the computer. 


PAGE-SELECT REGISTER 


This consists of seven pairs of addresses that determine the start address of video 
RAM. Using this register, you can start video RAM on any 512-byte boundary in 
RAM. This address is not an actual byte in RAM, but is a direct link to the 
page-select circuitry in the Computer. 
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PREPARING THE COLOR COMPUTER FOR GRAPHICS 
1. CHOOSE WHICH GRAPHICS MODE YOU WANT 
Using Table 1, decide which graphics mode you want. To do this, ask yourself the 
following questions: 


What is the video RAM requirement? Does your computer have enough RAM to 
accommodate it? If it does, is there enough room for the program that uses the 
graphics mode? 


How much resolution do you need? How many colors? There is a trade-off between 
colors and resolution. 


For example, G1C and G1R both require 1024 bytes for video RAM, but after that 
they differ. G1C offers a 64 x 64 pixel density, with 4 colors available for each pixel. 
Further, you may select between 2 sets of 4 colors. G1R on the other hand, offers a 
128 x 64 pixel density, with 2 colors available for each pixel. You may select 
between 2 sets of 2 colors. 


Program #1 uses G1C; Program #2, GOR. 


2. SELECT A PAGE OF VIDEO RAM FOR GRAPHICS USE 


Color BASIC uses addresses 1024-1535 for video RAM. This is sufficient for 
alphanumerics and SET/RESET graphics, but not for any of the higher-resolution 
graphics modes. For these, you should reserve a sufficiently large area at the top of 
RAM. Use the CLEAR statement to do this. 


CLEAR stringspace, memend 


stringspace is the amount of space you'll require for string information. Use 
the smallest number possible that won’t result in an OS error when your 
program runs. 


memend is the highest address Color BASIC will use. You can use addresses 
above memend for your graphics video RAM. 


To compute memend, use this formula: 
memend = memory size - pagesize 


memory size depends on how much RAM is in your system. For 4K systems, 
it is 4095; for 16K systems, 16383. 


pagesize depends on which graphics mode you are going to use. For 4K 

systems, you are probably limited to G1C or G1R; in either mode, pagesize 

1024. For 16K systems, you may use any mode, even one that uses 6144 
ytes. 


For example, to use G1C in a 4K system, start your program with this statement: 
CLEAR 20; 3071 


This assumes you won't need more than 20 bytes for string storage, and it reserves 
the highest 1024 bytes for use as video RAM. 


In Program #1, see Line 20; in Program #2, Line 20. 


3. “CLEAR OUT” YOUR VIDEO RAM 


You will probably want to start with a clean video screen. To clear out, store zero in 
each byte of video RAM. For example, in a 4K system, you might use these 
statements: 


FOR I = 3072 to 4095: POKE I+@: NEX 
In Program #1, see Line 120; in Program #2, Line 790. 


Important Note: Perform Steps 4 and 5, which tollow, consecutively, 
with no pauses in between. Otherwise, the screen will show what is 


often called “garbage.” 


4. SWITCH IN YOUR VIDEO RAM 


Using the page-select register, tell the Color Computer where your ‘‘page’”’ of video 
RAM starts. A graphics page must start on a 512-byte boundary. To tell Color 
Computer where the page starts, use a 7-bit value. (The 8 bit, bit 7, is always 0, so is 
not needed by the page-select register.) Table 3 lists the correct values for pages 
starting at memend + | (see Step 3). 


Table 3 doesn’t list all possible addresses where you might want to start video RAM. 
The following procedure lets you calculate the correct value for any valid start 
address for video RAM. (Addresses must be on 512-byte boundaries: 0,512,1024, 
etc.) 


First calculate the video offset in 512-byte ‘‘blocks,”’ as follows: 
OFFSET = YWIDRAM / S512 
VIDRAM is the start address of your video RAM (usually memend + 1). 


For example, in 4K systems with your video RAM starting at 3072, OFFSET = 3072 
/512 = 6. 


Then express OFFSET as a 7-bit binary number. For example, 


sdscina = Lo To To To] + [1 Jo] tinay 
5 4 3 2 1 0 


Bit » 6 


After finding the correct value, give it to the page-select register. 


Remember, this register consists of 7 pairs of addresses. Each pair controls whether 
agiven bit in the page-select circuitry is on or off. To RESET a bit (make it equal to 0), 
POKE any value into the even-numbered address in the pair; to SET a bit (make it 
equal to 1), POKE any value into the odd-numbered address in the pair. 


TO RESET, TO SET, 
BIT # POKE HERE POKE HERE 
0 65478 65479 
1 65480 65481 
2 65482 65483 
3 65484 65485 
4 65486 65487 
5 65488 65489 
6 65490 65491 


For example, to switch in the video RAM starting at 3072, give the value 000110 to 
the page control circuitry as follows: 


POKE 63478 18 ‘RESET BIT @ 
POKE 65481 +@ "SET BET 1 

POKE 63483 +@ “SET BIT Z 

POKE 63484 1@ ‘RESET BIT 3 
POKE GS486 +2 ‘RESET BIT 4 
POKE 63488 +8 "RESET BITS 
POKE 63490 +0 ‘RESET BIT G 


In Program #1, see Lines 40-50. The formula in Line 40 
65478+1%* 2+ DT 


is a shorthand way to poke the appropriate addresses in the page-select register. DT 
is the 0/1 value for each of the 7 bits. 


In Program #2, Lines 640-670 do the same thing using bit patterns stored in PH( ) 
and PA(). 


5. SELECT THE DESIRED GRAPHICS MODE 


To select a given graphics mode, you must: 
A. Set the VDG register 
B. Set the control register. 


(A) First, look up the 3-bit VDG pattern that selects the graphics mode (seeé€olumn 
2 in Table 2). 
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This is the binary value you must give to the VDG register. Remember, this register 
consists of 3 pairs of addresses. Each pair can be used to control whether a given bit 
in the VDG circuitry is on or off. To RESET a bit (SET it to zero), POKE any value into 
the even-numbered address in the pair; to SET a bit, POKE any value into the 
odd-numbered address in the pair. 


TO CLEAR, TO SET, 
BIT # POKE HERE POKE HERE 
0 65472 65473 
1 65474 65475 
2 65476 65477 


For example, to select graphics mode G1C, give the value 001 to the VDG registers 
as follows: 


POKE 65473 108 ‘SET BIT @ 
POKE 65474 18 ‘RESET BIT 1 
POKE 65476 +8 “RESET BIT 2 


(B) Now select the control value for the graphics mode you want (see Column 3 of 
Table 2). Then store this value in the control register without changing bits 0-3 of 
the control register. 


For example, to select graphics mode G1C with color set 0. 

1. Get temporary result with all bits off except 0, 1, 2. These are not changed. 
POKE 65314, 128 OR (PEEK(G65314) AND 7) 

2. Turn on bit 7 without changing bits O, 1, 2. 


After you execute Steps 2-5, the computer is in the graphics mode you selected. 
The screen should be blank. You can devote the rest of your program to using the 
graphics mode. 


In Program #1, see Line 100. In Program #2, see Lines 740-770. 


PUTTING GRAPHICS TO WORK 


After you select the graphics mode, you can control what appears on the screen by 
POKEing data into the graphics page you selected. How the data is interpreted 
depends on the mode you selected. In some modes, 1 byte may control a sequence 
of 8 bits; in others, 1 byte may control a 2 x 6, 2 x 12, etc., “block.” 


Table 4 explains how each pixel in a given mode is controlled by a byte or bit. If 
you’ re writing your own main program to use the subroutines in Program #3, you 
may want to experiment, storing various values from 0-255 into a single byte in 
your page of video RAM. 


If you want to get more predictable results, read on... 


MAPPING FUNCTIONS 
In all graphics modes, the screen is divided into (X,Y) coordinates. Each pixel on the 
screen has a unique (X,Y) “address.” 


If you've used SET, RESET, and POINT, then you’re familiar with this coordinate 
system. All these statements allow direct reference to (X,Y) coordinates. For exam- 
ple, to set the centerpoint on the screen to blue, use: 


SET(31+15%3) 


Using the higher-resolutions graphics modes is a little more difficult. You can’t deal 
directly with (X,Y) coordinates; you must translate, or “‘map,’’ the desired (X,Y) 
coordinates onto the appropriate byte of video RAM. When 1 byte controls 2 or 
more pixels, map the (X,Y) coordinates onto the appropriate bit or bits within a byte. 


Table 4 shows how each byte of video RAM controls 1 or more pixels. 


As an example, we'll take the 256 x 192 mode, GéR. 


In this mode, the first 32 bytes of video RAM control the first row of 256 pixels; the 
second 32 bytes control the second row; etc. 


Within each row, each byte of video RAM controls a sequence of 8 pixels: 
One Byte of Video RAM 
seen as 8 bits: 


7 6 2 4 3 2 1 0 


Bit 7 controls the leftmost pixel in the sequence; bit 0, the rightmost. 


With this in mind, you can construct a series of BASIC operations to map (X,Y) onto 
one bit in one byte. 


Note: In the following BASIC statements, we assume the following: 
X is the X-coordinate. (For illustration, X = 128.) 
Y is the Y-coordinate. (For illustration, Y = 96.) 


VIDRAM is the first address of video RAM. (For illustration, VIDRAM = 
10240.) 


The expression ‘’2 X’’ means ‘’2 to the X power.” (This function is not 
available in Color BASIC, but you can simulate it with a table of powers 
or 2.) 


Which byte ‘‘contains’”’ the pixel? 


OFFSET = INT(X/8) + Y*#32 = 16 + 3072 = 3088 
BYTE = YVIDRAM = OFFSET = £0240 + 3088 = 13328 


Which bit in BYTE controls the pixel? 


XMODB = X - INT(K/8)*8 = 0 
BIT = 7 - XMOD8 = 7 


What 1-byte value will set the pixel? What 1-byte mask will set the pixel 
without changing any of the others controlled by the same byte? For 
illustration, assume BYTE contains 8. 


VLU = 2 ABIT = 128 = binary 10000000 
OLD = PEEK(BYTE) = 8 = binary 00001000 
MASK = YLU OR OLD = 136 = 10001000 
POKE BYTE» MASK 


What 1-byte value will reset the pixel? What 1-byte mask will reset the 
pixel without changing any of the others controlled by the same byte? 
For illustration, assume BYTE contains 136. 


VLU = 255 - 2 ABIT = 255 - 128 = 127 = binary 
@1111111 

OLD = PEEK(BYTE) = binary 19901000 = 136 
MASK = VLU AND OLD = binary 00001000 = 8 
POKE BYTE» MASK 


The mapping just described is used in Program #2. See Lines 820-910. Another 
mapping (64 x 64, G1C) is used in Program #1, Lines 440-500. 
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TABLE 1. DESCRIPTION OF THE GRAPHICS MODES AVAILABLE 


Mode (1) Resolution Colors (2) Req. (Bytes) 
[sco] Sage | TS 
[sce] S4xee | CT 2088 
[sir °| e4xeo [8 hy, 7, 
[sca | —e4xio2 =| 814 
[cic S| 4xoe OT 
[cin —s| Ss taaxee | 2 

a aaa 
a ae 
a ee 


4 

2 
4 
2 
4 
G6Cc 


Note: 


(1) The mode names are abbreviations. Read ‘SG6”’ as ‘’semigraphics six’; 
read “G1C’ as “graphics one with color’; read ‘“G1R” as ‘graphics one 
with resolution’; and so on. In all ‘‘semigraphics’’ modes, you have 8 
colors at once. In all “with color’ modes, you have 4 colors at once. In 
all “with resolution’ modes, you have 2 colors at once. 


In the 4-color modes, you may select between two sets of 4 colors each. 
In the 2-color modes, you may select between 2 sets of 2 colors each. The 
color-set select bit (bit 3 of the video control register) determines which 
set is used. See Table 2 for more details on ealantinn the color set. 


TABLE 2. DISPLAY MODE SELECTION 


a. | Video Control 
Register Value Data 
VDG Register With Color Set* Bits* 
Three-Bit Pattern 0/1 7/6 
P.sce | = o00 ~~ | Ste /24 |X 
0/0 
Pocic [= ors 128136 XX 
Pocir [| SoCs 1452 |XX 
Poe | St S—~SCSC 92200 |XX 
G6R 240 / 248 xix 


“xX” indicates ‘‘Don’t care.” 


TABLE 3. VIDEO RAM PAGE SELECTION 


Page Select 

VIDRAM Register 

Bit Pattern 

[Size (Bytes) | _Start Address | «6543210 
0000111 
a 0000110 
M 0000101 
oo11111 

wk . [02a] 15360 sd | 011110 
R 0011101 
A 0011100 
M 0011010 
0010100 
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TABLE 4. DETAILED DESCRIPTION OF THE GRAPHICS MODES 
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PART B 


USING 
MACHINE-LANGUAGE 
SUBROUTINES WITH 
COLOR BASIC 


In this part we describe how to call a machine-language subroutine from a BASIC 
program, and we list certain ROM subroutines that you may find useful. 


“Machine-language”’ (ML) is the low-level language used internally by your com- 
puter. It consists of microprocessor instructions. Machine-language subroutines are 
useful for special applications because they can do things very fast. 


Writing such routines requires familiarity with assembly-language programming 
and with the microprocessor’s instruction set. For more information, see Basic 
Microprocessors and the 6800, Ron Bishop, Hayden Book Company, 1979. 


In this section, we take a step-by-step approach to using ML subroutines, as follows: 


1. Protecting Memory 

2. Storing the ML Subroutine in RAM 

3. Telling BASIC Where the Subroutine Is 
4. Calling the Subroutine 

5. Returning to BASIC 


As we go along, we'll present a BASIC program that performs all 5 operations. You 
may type in the BASIC program lines as they are given, but don’t try to run the 
program until you've read this entire section. 


Our ML subroutine is simple. It gets a character from the keyboard. The character is 
returned as an ASCII code rather than as a string. 


The subroutine has a few features not available with INKEY$ or INPUT. First, it will 
return any key code, including the one for (@REAK). Second, it will let you key in 
control codes A-Z (CTRL-A through CTRL-Z). To key in a control character, press 
Ch), release it, then press any key from (A) to @). The control codes generated 
range from 1 to 26. . 


Upon return from the subroutine, the USR reference is ‘“replaced’’ with a character 
code. 


We'll call the subroutine “GETKEY.” For a listing of the ML subroutine, see the end 
of this section. 


STEP 1. PROTECTING MEMORY 


With the CLEAR statement, you can reserve a section of RAM for storing your ML 
subroutine. The first CLEAR parameter sets the string space, and the second sets the 
memory protection address. For example: 


10 CLEAR 25, 4050 


sets the string space to 25 bytes and reserves memory addresses from 4051 to the 
end of RAM (see the Memory Map). Your ML program may then safely be stored in 
this area. 


STEP 2. STORING THE MACHINE LANGUAGE SUBROUTINE IN RAM 


You may load ML programs from tape via CLOADM, or you can POKE them into 
RAM. In our example, we store the individual codes in DATA statements, then read 
and POKE each code into the correct RAM location. The numbers in the DATA 
statements are derived from the ML subroutine listed later in this section. 


2@ FORTI=1T0O28 
30 READ B: POKE 4050+1;86 
40 NEXT I 
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5@ DATA173; 159+ 169; @ 

60 DATA 39+ 250+ 1291101, 38, 12 
70 DATA173+ 159» 160+ 0+ 39» 250 
75 DATA 129+ 65,» 4552 

80 DATA128+ G4+ 31,1371 79 

92 DATA126; 180, 244 


STEP 3. TELLING BASIC WHERE THE SUBROUTINE IS. 


Before you can use the subroutine, you have to tell your Color Computer where it 
starts. Do so by POKEing the 2-byte address into RAM locations 275-276. The most 
significant byte (MSB) goes first, then the least significant byte (LSB). 


Our ML will start at decimal 4051, so: 


Decimal 4051 = Hexadecimal OF D3 = 
Decimal 15(MSB), Decimal 211 (LSB) 


Here’s the program line to accomplish this: 
100 POKE 275,15: POKE 276» 211 


STEP 4. CALLING THE SUBROUTINE 
At the correct point in your program, insert a USR function reference: 
110 A= USR(O) 
In our example, 0 is a ‘dummy argument.’ It won't be used by the ML subroutine. 
When this statement is encountered, BASIC calls the ML subroutine. 


Note: On entry to the subroutine, you can get the USR argument (the 0 in this case) 
by calling a ROM subroutine, INTCNV, which returns with the integer value in the 
D register. The address of INTCNV is hexadecimal B3ED. 


STEP 5. RETURNING TO BASIC 


If you do not want to return any values to the BASIC program, end the subroutine 
with an RTS instruction. If you want to return a 2-byte integer value, load the integer 
into register D in MSB-LSB sequence, then end the subroutine by calling a special 
ROM subroutine, GIVABF. The address of GIVABF is hexadecimal B4F4. 


After an RTS, the USR-reference in your BASIC program returns the original dummy 
argument. After a call to GIVABF, the USR-reference in your BASIC program returns 
the value you loaded into the D register. 


THE BASIC PROGRAM 
The following program gets the object code into RAM and then uses the subroutine 
to get keyboard input. Type it in carefully; then run it. 


Each time you press a key, control returns to BASIC with the ASCII code for that key. 
Try pressing (BREAK). You'll get the code for (BREAK) 3. The BASIC program ends 
when you press (ENTER) or eD : 


To get any of the codes 1-26, press CY), release it, then press a key from (A) to ZZ). 
1@ CLEAR 25,» 4050 ‘’RESERVE MEMORY 


i> GLS ,; 

20 FOR I = 1 TO 28 “STORE EACH BYTE GF OBJECT 
CODE 

30 READ B: POKE 4050 + I+ B 

40 NEAT I 


45 ‘HERE IS THE OBJECT CODE 

5@ DATA 173+ 159+ 1605 @ 

6@ DATA 39+ 250+ 129+ 18+ 38+ iz 
7® DATA 173» 159+ 160+ @+ 39, 250 
75 DATA 129+ GS+ 43+ 2 

B® DATA 128+ G4+ Bi; 1 
9@ DATA 126+ 188, 244 
99 ‘TELL BASIC WHERE THE ROUTINE IS 
1090 POKE 275+ 15: POKE 276, 211 


110 A = USR(®) ‘CALL THE SUBROUTINE AND GIVE 
RESULT TO A 

115 IF A = 13 THEN END 

120 PRINT "CODE ="3 A 

13@ GOTO ii@ 


Note to Customers with 16K RAM 
You may change Lines 10 and 30: 


10 CLEAR 25+ 16350 
30 READ B: POKE 16350 + I+ B 


For a variation in the program, change Line 120 to: 
120 PRINT CHR#(A)5 ‘DISPLAY THE CHARACTER 


Most control keys (C_) followed by a key (A) — (Z)) will have no effect when they 
are printed. But try control—H (backspace). 


ML SUBROUTINE LISTING 


Note: Don’t type this in. It is here for those who want to understand how the ML 
subroutine works. 


Hexadecimal Source Code Comments 

Object Code 

AD OF A® 22 LOOP JSR (POLCAT) 3:POLL FOR A KEY 

27 FA BEQ LOOP1 s3IF NONE> RETRY 

81 @A CMPA #10 sCTRL KEY (DN 
ARW)? 

26 @C BNE OUT sNO,», SO EXIT 

AD OF A® @B@ LOOP2 JSR (POLCAT) sYES. SO GET 
NEXT KEY 

27 FA BEQ LOOP2 IF NONE? RETRY 

Bi 20 CMPA #65 315 IT A = 2? 

2D @2 BLT OUT sIF =< As EXIT 

Ba 40 SUBA #64 sCONVERT TO 

CTRL A/Z 

1F 89 OUT TFR A+B 3;GET RETURN 
BYTE READY 

4F CLRA s5ZERO MSB 

7E B4 F4 JMP GIVABF sSRETURN VALUE 
TO BASIC 


POLCAT EQU 40968 
GIVABF EQU 46324 


Note: “Source code” is not meaningful to the computer. It is a set of memory aids 
and symbols we use for convenience. The source code must be translated or 
“assembled” into object code, which the computer understands. In the listing 
above, the object code is given in hexadecimal form. We converted it to decimal 
numbers for our BASIC program. 


ROM SUBROUTINES AVAILABLE FOR USE FROM BASIC 


Color BASIC ROM contains many subroutines that can be called by a machine- 
language program; many of these can be called by a Color BASIC program via the 
USR function. Each subroutine is described in the following format: 


NAME — Entry address 
Operation Pertormed 
Entry Condition 

Exit Condition 


Note: The subroutine NAME is only for reference. Your Color Computer does not 
recognize it. The entry address is given in hexadecimal form; you must use an 
indirect jump to this address. Entry and Exit Conditions are given for machine- 
language programs. 

BLKIN = (A006) 

Reads a Block from Cassette 
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Entry Conditions 


cosets must be on and in bit sync (see CSRDON). CBMFAD contains the buffer 
address. 


Exit Conditions 
BLKTYP, which is located at 7C, contains the block type: 


0 = Fle Header 
1 = Data 
FF = End of File 


BLKLEN, located at 7D, contains the number of data bytes in the block (0-255). 
Z* = 1,A = CSRERR = 0 (if no errors). 

Z = 0,A = CSRERR = 1 (if a checksum error occurs). 

Z = 0,A = CSRERR = 2 (if a memory error occurs). 

(Note: CSRERR = 81) 

Unless amemory error occurs, X = CBUFAD + BLKLEN. Ifa memory error occurs, 
X points to beyond the bad address. Interrupts are masked. U and Y are preserved, 
all other modified. 

*Z is a flag in the Condition Code (CC) register. 


BLKOUT = [A008] 

Writes a Block to Cassette 

Entry Conditions 

The tape should be up to speed and a leader of hex 55x should have been written if 
this first block to be written after a motor-on. 

CBUFAD, located at 7E, contains the buffer address. 

BLKTYP, located at 7C, contains the block type. 

BLKLEN, located at 7D, contains the number of data bytes. 


Exit Conditions 

Interrupts are masked. 

X = CBUFAD + BLKLEN. 
All registers are modified. 


WRTLDR = [A00C] 

Turns the Cassette On and Writes a Leader 
Entry Conditions 

None 

Exit Conditions 

None 


CHROUT = [A002] 

Outputs a Character to Device ; 

CCHROUT outputs a character to the device specified by the contents of 6F 
(DEVNUM). 


DEVNUM — 2 (printer) 

DEVNUM = 0 (screen) 

Entry Conditions 

On entry, the character to be output is in A. 


Exit Conditions 
All registers except CC are preserved. 


CSRDON = [A004] 
Starts Cassette 
CSRDON starts the cassette and gets into bit sync for reading. 


Entry Conditions 
None 


Exit Conditions 
FIRQ and IRO are masked. U and Y are preserved. All others are modified. 


JOYIN = (AOOA) 

Samples Joystick Pots 

JOYIN samples all four joystick pots and stores their values in POTVAL through 
POTVAL + 3. 


Left Joystick 
Up/Down 15D 
Right/Left 15C 


Right Joystick 
Up/Down 15B 
Right/Left 15A 


For Up/Down, the minimum value = UP. 
For Right/Left, the minimum value = LEFT. 


Entry Conditions 
None 


Exit Conditions 
Y is preserved. All others are modified. 


POLCAT = (A000) 
Polls Keyboard for a Character 


Entry Conditions 
None 


Exit Conditions 

Z = 1,A = 0 (if no key seen). 

Z = 0,A = key code (if key is seen). 

B and X are preserved. All others are modified. 


~ MEMORY CONTENTS 


This table shows the contents of the Color Computer’s memory. The first column 
shows the memory address in decimal notation; the second, in hexadecimal 


notation. 

Decimal Hex Memory Contents. 

0-105 0-69 Direct page RAM (can be used by machine lan- 
guage programs) 

112-255 70-FF Direct page RAM (cannot be used by machine lan- 
guage programs using any of BASIC’s subroutines) 

256-273 100-111 Internal Use (Interrupt Vector’s) 

274-276 112-114 USRJMP - Jump to BASIC’s USR routine 

277-281 115-119 Can bé used by machine language programs 

282 11A Keyboard Alpha lock — O = not locked, FF = 
locked 

283-284 11B-11C Keyboard delay constant 

285-337 11D-151 Can be used by machine language programs 

338-345 152-159 Keyboard rollover table 

346-349 15A-15D Joystick pot values 

350-1023 15E-3FF Internal Use 

1024-1535 400-5FF Video Memory 

1536-4095 600-OF FF Program and Variable Storage (4K RAM) 


1536-16383 600-3FFF Program and variable storage (16K RAM) 
16384-32767 4000-7FF Not Used 

32768-40959  8000-9FFF Extended Color BASIC 

40960-49151 AQOO-BFFF COLOR BASIC (8K ROM) 

49152-65279 COOO-FEFF Program Pak Memory 

65280-65535 FFOO-FFFF Input/Output 
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APPENDIXES 


APPENDIX A 


Musical Tones 


Your computer can come fairly close to matching (although it can’t ex- 
actly match) the musical tones shown below. You may use either the 
piano keyboard or the musical staff to determine the numeric code that 
represents the note you want. 


If you're using the piano keyboard, the numeric code for each key is di- 
rectly over the key. For example, the numeric code for middle C is 89. 


If you’re using the musical staff, the numeric code for each note is be- 
low the note. For example, the numeric code for 


2 © 
ora 


If the note is a flat, select the numeric code immediately preceding the 
note. For example: 


re) 2 2 2 
» © 8F eer So 8 
MIDDLE 

Cc 


is 99. 


If the note is a sharp, select the numeric code immediately following the 
note. For example: 


— 


is 117. 


Chapter 5 shows how to program the computer to play a song. 


x a) © 2 
5 sss 22 
2 a & & 


- 2 we 7" -a vs Or @ Oo - NX og 
c Nx Ss 8 58598948099 o = 2s 3 
NA WB A 8 Aa A SN NA NAN NN a NA NN 
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APPENDIX B 


BASIC Colors and Graphics Characters 


These are the codes for the colors you can create on your screen. 


BASIC COLORS 


0 — black (absence of color) 5 — buff 

1 — green 6 — cyan 

2 — yellow 7 — magenta 

3 — blue 8 — orange 
4—red 


When using SET, color 0 will leave a dot’s color unchanged. 


GRAPHICS CHARACTERS 


These are the codes for the Color Computer's graphics characters. To 
produce them, use CHR$ with the character’s code. For example, 
PRINT CHR$ (129) produces character 129. 


128 129 130 


131 132 133 134 135 
136 137 


To print all these graphics characters, type and run this program: 


To create these characters in one of the colors below, add the appropri- 
ate number to the code. For example, PRINT CHR$ (129 + 16) - 
duces character 129, except the green area is yellow. 


+16 — yellow + 64 — buff +96 — magenta 
+ 32 — blue +80 — cyan +112 — orange 
+48 — red 


Chapter 16 explains how to use graphics characters. 


APPENDIX C 


PRINT @ SCREEN LOCATIONS 
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APPENDIX D 


GRAPHICS SCREEN LOCATIONS 


APPENDIX E 


ASCII Character Codes 


These are the ASCII codes for each of the characters on your keyboard. 
The first column is the character; the second is the code in decimal no- 
tation; and the third converts the code to a hexadecimal (16-based 


number). 
CHARACTER DECIMAL HEXADECIMAL 
CODE CODE 

SPACEBAR 32 20 
! 33 21 
ie 34 22 
# 35 23 
$ 36 24 
% 37 25 
& 38 26 
. 39 2 
( 40 28 
) 41 29 
x 42 2A 
+ 43 2B 
; 44 2C 
- 45 2D 
; 46 2E 
/ 47 2F 
0 48 30 
] 49 31 
2 50 32 
3 51 33 
4 52 34 
5 53 35 
6 54 36 
ra 55 37 
8 56 38 
9 57 39 
: 58 3A 
i 59 3B 
< 60 3C 
= 61 3D 
> 62 3E 
2 63 3F 
@ 64 40 
A 65 41 
B 66 42 
Cc 67 43 
D 68 44 
E 69 45 
F 70 46 
G 71 47 
H 72 48 
| 73 49 
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CHARACTER DECIMAL HEXADECIMAL 


CODE CODE 

J 74 4A 

K 75 4B 

L 76 4C 

M 77 4D 

N 78 4E 

O 79 4F 

P: 80 50 

Q 81 51 

R 82 52 

S 83 53 

T 84 54 

U 85 55 

V 86 56 

W 87 57 

x 88 58 

Y 89 59 

Z 90 5A 
‘iii 94 5E 
Ley 10 OA 
~)* 8 O8 
a 9 09 
03 03 
12 Ve 
(ENTER) 13 oD 


*If shifted, the codes for these characters are as follows: (CLEAR) is 92 
(hex 5C); GD) is 95 (hex 5F); GQ) is 91 (hex 5B); is 21 (hex 15); 
and is 93 (hex 5D). ; 


Lowercase Codes 


These are the ASCII codes for lowercase letters. You can produce these 
characters by pressing the and (0) keys simultaneously to get 
into an upper- lowercase mode. The lowercase letters will appear on 
your screen in reversed colors (green with a black background). 


CHARACTER DECIMAL HEXADECIMAL 
CODE CODE 
a 97 61 
b 98 62 
Cc 99 63 
d 100 64 
e 101 65 
f 102 66 
g 103 67 
h 104 68 
i 105 69 
j 106 6A 
k 107 6B 
| 108 6C 


CHARACTER DECIMAL HEXADECIMAL 


CODE CODE 
m 109 6D 
n 110 6E 
o 111 6F 
p 112 70 
q 113 71 
r 114 72 
s 115 73 
t 116 74 
u 117 75 
V 118 76 
w 119 77 
x 120 78 
y 121 79 
z 122 7A 


APPENDIX F 


Answers to Exercises 


Do-it-Yourself Program 4-4 
Sounding tones from bottom of range to top and back to bottom: 


10 FOR X ='1 TO 255 
2@ SOUND X+1 


30 NEXT & 

40 FOR K = 255 TO 1 STEP -1 
5@ SOUND X+sl 

6@ NEXT x 


Do-It-Yourself Program 5-1 
Lines added to clock program: 


92 FOR T-= 200 TO 210 STEP 5 
94 SOUND Tl 

95 NEXT T 

97 FOR T = 210 TO 200 STEP -5 
98 SOUND Tl 

99 NEXT T 


Do-It-Yourself Program 5-2 
Program that shows 9 colors for one second each: 


10 FOR C = @ 70 8 
22) ELS(e) 

3@ FOR x = 1 TO 460 
4@ NEXT & 

53@ NEXT C 
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Do-It-Yourself Program 7-1 
Russian Roulette: 


5 FOR N= 1 TO 10 

10 PRINT "CHOOSE YOUR CHAMBER(1-10)" 
20 INPUT X 

30 IF X = RND(1@) THEN 108 

4@ SOUND 200, i 

5@ PRINT "--CLICK--" 


70 PRINT @ 230+ "CONGRATULATIONS!!!" 
80 PRINT @ 265, "YOU MANAGED" 

90 PRINT @ 296+ “TO STAY ALIVE" 

95 END 

100 FOR T = 133 TO 1 STEP -5 

1109 PRINT "BANG!!! 1!" 

12@ SOUND T; 1 

138 NEXT T 

14@ CLS 

150 PRINT @ 230, "SORRY» YOU’RE DEAD" 
16@ SOUND 1, 58 

170 PRINT @ 290, "NEXT VICTIM PLEASE" 


Do-It-Yourself Program 7-2 


Craps game: 
12 CLS 
20 A = RND(G) 
30 B = RND(G) 


40R=A+B 

SQ PRINT @ 200; A 

6@ PRINT @ 214% B 

70 PRINT @ 394,» “YOU ROLLED A" R 


82 IF R = 2 THEN GOO 

98 IF R = 3 THEN GOO 

100 IF R = 12 THEN 6008 

110 IF R = 7 THEN 500 

120 IF R = 11 THEN 508 

130 FOR K = 1 TO 880 

14@ NEXT XK 

15@ CLS 

16@ PRINT @ 195+ "ROLL ANOTHER" R "AND YOU 
WIN" 

170 PRINT @ "ROLL A 7 AND YOU LOSE" 


262+ 
182 PRINT @ 420, "PRESS <ENTER? WHEN READY" 
56, "FOR YOUR NEXT ROLL" 


230 PRINT @ 280% XK 
240 PRINT @ 214; ¥ 
250 PRINT @ 394+ "YOU ROLLED A" 


he 
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26@ IF 2 = R THEN 500 

270 IF 2 7 THEN 680 

280 GOTO 180 

5900 FOR X = 1 TO 1000 

S1@ NEXT xX 

915 CLS 

520 PRINT @ 230+ "YOU’RE THE WINNER" 
530 PRINT @ 294+ "CONGRATULATIONS!!!" 
248 GOTO 630 

600 FOR k = 1 TO 1000 

610 NEXT XK 

615 CLS 

620 PRINT @ 264, "SORRY» YOU LOSE" 
630 PRINT @ 458, "GAME’S OVER" 


Do-It-Yourself Program 8-1 
Test Your Arithmetic 


5 CLS 

6 PRINT @ 230, "YOUR NAME" S$ 

8 INPUT N% 

10 CLS 

isST=Ttti 

20 X = RND(100) 

30 Y = RND( 100) 

4@ PRINT @ 228% "WHAT IS" K "+" 3 

45 INPUT A 

5@ IF A = X + Y THEN 82 

6@ PRINT @ 326% "THE ANSWER IS" kK + Y¥ 

70 PRINT @ 385,» "BETTER LUCK NEXT TIME+" N$% 

B@ GOTO 100 

B2 CLS(7) 

83 FOR M = 1 7T0 4 

B84 SOUND 1755 1 

B85 SOUND 200» 1 

8G NEXT M 

87 CLS 

92 PRINT @ 232, "“CORRECT+" NS "III" 

95 C=C+r+il 

97 PRINT @ 2 

98 PRINT @ 3 
ANSWERS" 

99 PRINT @ 362, C/T#¥100 "% CORRECT" 

100 PRINT @ 420» "PRESS «ENTER? WHEN READY" 

102 PRINT @ 458,» "FOR ANOTHER" 

1@5 INPUT A% 

11@ GOTO 10 


99, "THAT IS" 
22+ C “OUT OF" T "CORRECT 


Do-It-Yourself Program 9-1 
Table of squares: 


3 CLS 
7 PRINT @ 38+ "TABLE OF SQUARES" 
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8 PRINT 

1@P=2 

20 FOR N = 2 TO 18 

25 GOSUB 2600 

3@ PRINT N "¥" N "=" Es 

40 NEXT N 

3@ END 

2000 REM FORMULA FOR RAISING A NUMBER TO A 


2010 E = 
2020 F 
2030 E 
2048 N 
2050 IF P 
2060 RETURN 


Ue we 


@ THEN E = 1 


Do-It-Yourself Program 10-1 
Challenger Program: 


1@ PRINT "TYPE A SENTENCE :" 

15 INPUT S$% 

2@ PRINT "TYPE A PHRASE TO DELETE" 

23 INPUT D$ 

25 L = LEN(D$) 

30 PRINT "TYPE A REPLACEMENT PHRASE" 

35 INPUT R& 

4@ FOR X = 1 TO LEN(S$) 

5@ IF MID#(S#+X+L) = D$ THEN 190 

6@ NEXT x 

7@ PRINT D# "-- IS NOT IN YOUR SENTENCE" 

80 GOTO 20 

100 E = X - 1 + LEN(D$) 

110 NSS = LEFT$(S$+xX-1) + R# + 
RIGHT$(S#+LEN(S$) - E) ; 

120 PRINT "NEW SENTENCE [5 :" 

13@ PRINT NS$% 


Do-It-Yourself Program 11-1 
Computer typing test: 


10 CLS 

20 INPUT “PRESS <ENTER® WHEN READY TO TYPE 
THIS PHRASE"s ES 

3@ PRINT "NOW IS THE TIME FOR ALL GOOD MEN" 

40 T=1 

o@ AS = INKEYS 

60 IF A$ = " " THEN 188 

70 PRINT AS; 

80 BS = BS + AS 

90 IF LEN(B$) = 32 THEN 120 

100 T=T+i 

11@ GOTO 50 

120 5 = T/74 

130 M = S/6@ 


142 FOR X = 1 TO 32 

144 IF MID$( "NOW IS THE TIME FOR ALL GOOD 
MEN" sXo1) £2 MIDS$(BSsK+1) THEN E = E + 1 

146 NEXT X 

15@ PRINT 

16@ PRINT "YOU TYPED AT--" R "--WDS/MIN" 

170 PRINT "WITH" E "ERRORS" 


Do-It-Yourself Program 16-1 
Forward spacing dot: 


i@ CLS(@) 

20H = G63 

25 SET(H:14+3) 

30 AS = INKEYS 

40 IF A® = CHR#(8) THEN GO 
45 IF A® = CHRS(9) THEN 100 
38 GOTO 38 

GB@H=H- 1 

65 IF H «= @ THEN H=@: GOTO 30 
7@ SET(H+14+3) 

75 RESET(H + 1s 14) 

88 GOTO 3a 

100 H=H+i1 

110 IF H + 63 THEN H=63: GOTO 38 
120 SET(H+14:3) 

13@ RESET(H-1:+14) 

14@ GOTO 38 


Do-It-Yourself Program 16-2 
Table and chairs: 


10 LO# = CHR#$(139 + 16) + CHR$(i13@ + 16) 

2@ TAS = CHR#$(142 + 112) + CHR$(1d@ + 112) + 
CHR$(1d4i + 112) 

30 RC# = CHR#(129 + 16) + CHR#(135 + 16) 

4@ CLS(®@) 

5Q@ PRINT @ 236+ LCS + TA + RCS#5 

60 GOTO 6a 


Do-It-Yourself Program 18-1: 
Checkbook program: 


5 CLS: PRINT “POSITION TAPE - PRESS PLAY AND 
RECORD" 

7 INPUT "PRESS =ENTER? WHEN READY": R& 

19 OPEN "O"+ #-1+ "CHECKS" 

15 CLS: PRINT “INPUT CHECKS - PRESS <x? WHEN 


FINISHED" 
20 INPUT "NUMBER : "3 NS 
20 IF N# = "XX" THEN 9@ 


38 INPUT "DATE :"5 DD 


160 


40 INPUT "PAYABLE TO :"5 P$ 

5@ INPUT "ACCOUNT :"5 S# 

6@ INPUT "AMOUNT :#"35 A 

7@ PRINT #-1i+ N#%» D&» PSs SHs A 

80 GOTO 15 

92 CLOSE #-1 

92 CLS: T = @ 

95 INPUT "WHICH ACCOUNT"s BS 

1090 PRINT "REWIND TAPE - PRESS PLAY" 

110 INPUT "PRESS <ENTER? WHEN READY"S R& 
120 OPEN "I"» #-1+ "CHECKS" 

130 IF EOQF(-1) THEN 178 

14@ INPUT #-i+ N+ D&» P#+ SH A 

150 IF BS = S$ THEN T=T+A 

160 GOTO 13¢ 

17@ CLOSE #-1 

18@ PRINT "TOTAL SPENT ON -" Bs "IS $" T 


Do-It-Yourself Program 19-1 
Inventory program: 


1@ DATA 33» 12% 42% 13% 15% 23 

20 DATA 25+ 30+ 33» 27+» 145 8 

30 DIM I(12) 

40 FOR x = i170 12 

3@ READ I(x 

6@ NEXT x 

70 INPUT "ITEM NO."3 N 

75 IF N = 12 THEN 7@ 

8@ PRINT "INVENTORY FOR ITEM" N "TS" I(N) 
9% GOTO 79 


Do-It-Yourself Program 19-2 
Dealing a hand: 


3 DIM T(S2) 
7 DIM D(S2) 
10 FOR X = 170 52 


36 PRINT @ 101+ "4.4. DEALING THE CARDS" 
40 FOR kX = 170 S32 

5@ C = RND(S2) 

6@ IF T(C) = @ THEN 56 


7@ D(K) = C 

735 SOUND 128; 1 
88 T(C) = @ 

100 NEXT X 

11@ CLS 


120 PRINT @ 107, "YOUR HAND" 
130 PRINT @ 167, " " 


140 FOR X = 1705 
150 PRINT D(X)35 
160 NEXT 


Do-It-Yourself Program 20-1 


Lines that change items: 


110 


115 
120 


130 


INPUT "WHICH ITEM NO. DO YOU WANT TO 
CHANGE" $ N 

IF N > 12 THEN 110 

INPUT "WHAT IS THE REPLACEMENT ITEM"5 
S$(N) 

GOTO 8@ 


The appendix has a sample program that adds and deletes items from 


this list. 


Do-It-Yourself Program 20-2 


Lines that change the song lyrics: 


110 
120 


125 
130 
140 
150 


PRINT 
INPUT "WHICH LINE DO YOU WANT TO 
REVISE"S L 


IF L > 4 THEN 120 

PRINT "TYPE THE REPLACEMENT LINE" 
INPUT A#(L) 

GOTO 5a 


Do-It-Yourself Program 20-3 


Word processor challenger: 


1 CLEAR 1000 
5 DIM A$(50) 


7 CLS 

1@ PRINT "TYPE A PARAGRAPH" 

16: 

20 PRINT "PRESS </> WHEN FINISHED" 

30 xX =1 

4@ AS = INKEY$ 

50 IF AS = "" THEN 4@ 

6@ PRINT A#s 

70 IF A® = "/" THEN 185 

B® A(X) = AS(K) + AF 

90 IF AS = "," OR AS = "F" OR AF = "!" THEN K 
=X +1 

100 GOTO 40 

105 PRINT: PRINT 

110 INPUT "(1) PRINT OR (2) REVISE"S R 

120 CLS 

130 ON R GOSUB 1000; 2000 

140 GOTO 105 


161 


162 


000 REM PRINT PARAGRAPH 
010 FOR Y = 170 X-1 

@20 PRINT AS(Y)3 

@30 NEXT Y © 

040 RETURN 3 
0020 REM REVISE PARAGRAPH 


@1@ FOR Y = 1 TO X-1 
20 PRINT ¥ "--" AS(Y) 


030 NEXT Y 

@40 INPUT "SENTENCE NUMBER TO REVISE"; S 

@45 IF S >» X-1 ORS ¢ 1 THEN 28040 

250 PRINT A#(S) 

@6@ PRINT “TYPE PHRASE TO DELETE" 

070 INPUT D% 

082 L = LEN(D$) 

290 PRINT "TYPE A REPLACEMENT PHRASE" 

190 INPUT R$ : 

110 FOR 2 = 1 TO LEN(AS(S)) 

120 IF MID$(A$(S)»Z+L) = D& THEN 2160 

130 NEXT 2 

14@ PRINT D# "-- IS NOT IN YOUR SENTENCE" 

150 GOTO 2068 

160 —E = Z - 1 + LEN(D$) 

170 A$(S) = LEFT#$(A$(S) +2-1) + RS + RIGHT 
$(A$(S) »LEN(A$(S))-E) 

18@ RETURN 


Do-It-Yourself Program 20-4 


Printing on the printer: 


1 


Do-It-Yo 


5@ PRINT #-25 AS(Y)3 


urself Program 21-1 


Alphabetizing book collection: 


CLS: CLEAR 1000: DIM T#$(100)+» AS(100) + 
5$(100)+ M$(100)», 2(1908) 

PRINT "POSITION TAPE -- PRESS PLAY AND 
RECORD" 

INPUT "PRESS <ENTER? WHEN READY"S R& 
REM 

REM OUTPUT TO TAPE 


@ OPEN "O"> #-1+ "BOOKS" 
5 


CLS: PRINT "INPUT YOUR BOOKS -- TYPE <XX> 
WHEN FINISHED" 
INPUT "TITLE"$ TS 
IF T$ = "XX" THEN 5Q 
INPUT "AUTHOR"$ AS 


28 INPUT "SUBJECT"$ S$ 
30 PRINT #-1+ T#+ AS» S% 
4@ GOTO 15 

5@ CLOSE #-1 


6@ CLS: PRINT "REWIND THE RECORDER AND PRESS 


PLAY" 
70 INPUT "PRESS <ENTER? WHEN READY"3 R# 
74 REM 
76 REM INPUT FROM TAPE 
78 Be=1 


82 OPEN "I"y #-1,+ "BOOKS" 
85 IF EQF(-1) THEN 120 


90 INPUT #-1+ T#$(B)» A$(B)» S$(B) 


95 B 


=B+1 


110 GOTO 85 
120 CLOSE #-1 
490 PRINT 


INPUT "SORT BY (1) TITLE (2) AUTHOR OR 


(3) SUBJECT"S A 
IF A>3 ORAZ 1 THEN 500 


520 ON A GOSUB 1000, 2000, 3000 
530 GOSUB 4000 

540 PRINT 

550 FOR X = 1 TO B-1l 

560 PRINT "TITLE :" T#(2Z(K)) 
570 PRINT "AUTHOR: " AS(Z(K)) 


580 PRINT “SUBJECT :" S#(Z(K)) 


39@ NEXT X 
G8 PRINT : GOTO 500 
BOO REM 


900 REM 


1000 
1010 
1020 
1030 
2000 
2010 
2020 
2030 
3000 
3010 
3020 
3030 
39008 
4000 
4005 
4010 
4020 
4030 
4040 
4050 
4060 
4065 
4080 
4085 
4090 
4100 


BUILD M# ARRAY 
FOR X = 1 TO B-1 
M$(X) = TS(XK) 

NEXT & 


NEXT 
RETURN 


n 
Oo 
a 
= 

nou 


REM SORT ROUTINE 


x + 1 
-1 THEN RETURN 


FOR Y = 1 TO B-1 
IF M$(Y) < M#(X) THEN X 
Z(T) = X 

NEXT Y 

TeT+1 

M$(X) = "22" 

GOTO 4010 


"22" THEN 4020 


Vv 
1 
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Do-It-Yourself Program 22-1 
Deal two-dimensional cards: 


18 DIM S$(4)+ N€(13)5 T(4+13) 

2@ DATA SPADES» HEARTS» DIAMONDS; CLUBS 

3@ FOR kK = 1704 

4@ READ S#(X) 

3@ NEXT X 

6@ DATA ACE? 2+ 3+ 4+ S+ G+ 7+ Be Dr 18% JACK»? 
QUEEN» KING 

7@ FOR X = 17013 

82 READ N(x) 


9@ NEXT 
100 FORS = 1704 
11@ FOR N = 1 70 13 


120 T(SsN) = (S-1) #13 +N 
130 NEXT N+S 

140 FOR X = 1 TO 32 

15@ S = RND(4): N = RND(13) 
160 IF T(S»sN) = @ THEN 1590 
170 T(SsN) = @ 

180 PRINT N$(N) "-" S$(S),» 
19@ NEXT XK 


APPENDIX G 


Subroutines 


These subroutines let you run programs that require advanced math 
functions not directly available in Color BASIC. 


Each subroutine listing has a set of instructions in the margin. Study 
them closely. You'll see that some subroutines require other subroutines 
for internal calculations. You must enter these ‘‘auxiliary subroutines’’ 
when the instructions call for them. 


Note: Subroutines are not as accurate as Color BASIC’s math oper- 
ators and functions. This is because: 


* The subroutines contain many chain calculations, which tend to 
magnify the small error of individual operations. 


* The subroutines are only approximations of the functions they 
replace. 


In general, the subroutines are accurate to 5 or 6 decimal places 
over much of their allowable range, with a decrease in accuracy 
as the input approaches the upper or lower limits for input values. 


Square Root 


Computes: SWR(X), X 
Input: X, must be greater than or equal to zero 
Output: Y 
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Also uses: W,Z internally 
Other subroutines required: None 
How to call: GOSUB 30030 


30000 
30019 
30020 
380308 
300408 
30050 
30060 
30070 
30080 
300908 


END 

REM *SQUARE ROOT* INPUT X+ OUTPUT Y 
REM ALSO USES W& Z INTERNALLY 

IF X = @ THEN Y = @: RETURN 

IF X > @ THEN 30060 


PRINT "ROOT OF NEGATIVE NUMBER?": STOP 


Y+txXk * .3: 220 

Wo= (K/Y-Y) #45 

IF (W=@) + (W=Z) THEN RETURN 
Y=Y+W: Z=W: GOTO 30070 


Exponentiation 


Computes: X Y (X to the Y power) 
Input: X, Y. If X is less than zero, Y must be an odd integer 


Output: P 


Also uses: E, L, A, B, C internally. Value of X is changed. 
Other subroutines required: Log and Exponential 
How to call: 30120 


3B000 
30100 


30110 
30120 
30130 
30140 


30150 


END 


REM #*EXPONENTIATION® INPUT Xs¥5s QUTPUT 


P 

REM ALSO USES Esl +sA+B+C INTERNALLY 
P=i1: E=@: IF Y=@ THEN RETURN 

IF (X£@)ANDCINT(Y)=¥) THEN P=1- 
ZEYtQGHINTCY/2) 3 K=-K 

IF X£>@ THEN GOSUB 30190: X=Y*L: GOSUB 
30250 

P=P*E: RETURN 


Logarithms (Natural and Common) 


Computes: LOG(X) base e, and LOG(X) base 10 

Input: X greater than or equal to zero 

Output: L is natural log (base e), X is common log (base 10) 
Also uses: A, B, C internally. Value of X is changed. 

Other subroutines required: None 

How to call: GOSUB 30190 


30000 
30170 


30175 


30189 
30190 


30195 
30200 
30205 
30210 


END 

REM *NATURAL & COMMON LOG: INPUT Xs 
OUTPUT Lox 

REM OUTPUT L IS NATURAL LOG» QUTPUT x 


IS COMMON LOG 

REM ALSO USES A+B+C INTERNALLY 

E=@: IF X2@ THEN PRINT "LOG UNDEFINED 
AT": KX: STOP 

A=1i: BZ: C=.5 

IF K2=A THEN X=C¥X: E=E+A: GOTO 30200 
IF X=C THEN X=B#xX: E=E-A: GOTO 382905 
X=(X=-.707107)/(K+.787107) 2 LEK 
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30215 L=(((.598979*L+,961471)*L+2.88539) 
¥#K+E-.5)%,.693147 

30220 IF ABS(L)<1E-G THEN L=@ 

30225 K=L*.4342945: RETURN 


Exponential 


Computes: EXP (X) (e to the X power) 

Input: X 

Output: E 

Also uses: L,A internally. Value of X is changed. 
Other subroutines required: None 

How to call: GOSUB 30250 


300028 END 

30240 REM *EXPONENTIAL® INPUT K+ OUTPUT E 

30245 REM ALSO USES L+A INTERNALLY 

30250 L=INT(1,4427#xk) +1: IF Le127 THEN 38265 

30255 IF X30 THEN PRINT "OVERFLOW": STOP 

30269 E=0: RETURN 

30265 E=,693147#L-K: A=1,.32988E-3- 
1.4131G6E-4*E 

30270 A=((A*E-8,.30136E-3)*E+d,16574E-2)*E 

30275 E=(((A-,.166665)*E+,.5)*E-1)*E+t1i: A=z 

30280 IF L¥=0 THEN A=.5: L=-L: IF L=@ THEN 
RETURN 

30285 FOR X=1 TO L: E=A#E: NEXT K: RETURN 


Tangent 


Computes: TAN(X) 

Input: X in degrees 

Output: Y 

Other subroutines required: Cosine 
How to call: GOSUB 30310 


38800 END 

30300 REM *TANGENT*® INPUT X IN DEGREES» 
OUTPUT Y 

38310 IF ABS(SIN((9@-XK)/57.29577951)) <1E-7 
THEN PRINT "UNDEFINED": STOP 

30320 Y=SIN(K/57.29577951)/SIN((90-K) / 
97+29577951 ) 

30338 RETURN 


Cosine 


Computes: COS(X) 

Input: X in degrees 

Output: Y 

Other subroutines required: None 
How to call: GOSUB 30360 


30000 END 
30358 REM *COSINE* INPUT X IN DEGREES: 
OUTPUT ¥ 


30360 Y=SIN((9@-X)/37.29577951) 
30365 RETURN 


Arc Cosine 


Computes: Arccos(S), angle whose cosine is S 
Input: S, 0<=S<=1 

Output: Y in degrees, W is in radians 

Also uses: X,Z internally 

Other subroutines required: ArcSine 

How to call: GOSUB 30500 


30000 END 

38500 REM *ARCCOS* INPUT S» OUTPUT Yow 

30510 REM Y IS IN DEGREES» W IS IN RADIANS 

30520 GOSUB 30550: Y=90-Y: W=1.57079G-W: 
RETURN 


Arc Sine 


Computes: ArcSin(S), angle whose sine is S 
Input: $, 0<=S<=1 

Output: Y in degrees, W in radians 

Also uses: X,Y internally 

Other subroutines required: None 

How to call: 30550 


30000 END 

30530 REM *ARCSIN SUBROUTINE*® INPUT S;+ 
OUTPUT Y+W 

30535 REM Y IS IN DEGREES» WIS IN RADIANS 


30540 REM ALSO USES VARIABLES XsZ INTERNALLY 


30550 X=S: IF ABS(S)<=.707107 THEN 30610 


30560 X=1-S*S: IF Xi@ THEN PRINT S3"IS QUT OF 


RANGE": STOP 

30565 IF X=@ THEN W=90/57.29577951: GOTO 
30638 

30570 W=K/2: Z2=0 

30580 Y=(X/W-W)/2: IF (ABS(Y)<,.1E- 
B)AND(Y=Z) THEN X=W: GOTO 306128 

30600 W=W+¥: Z=¥: GOTO 38580 

3OG1O Y=K+X#XEK/GHKEXEXEXEKH O7SFKEKEKER 
#XHXHKEd, AG428G6E-2 

BOG2O WHY+KEXEKEXEKEXEKEX#XHS, DOBIIDAGE-2 

30625 IF ABS(S)?.707187 THEN W=1.5708796-W 

30630 Y=W#57,29577951: RETURN 


Arc Tangent 


Computes: ATN(X), angle whose tangent is X 
Input: X 

Output: C in degrees, A in radians 

Also uses: B,T internally. Value of X is changed. 
Other subroutines required: None 


167 


168 


How to call: GOSUB 30690 


300008 END 

30660 REM *ARCTANGENT* INPUT X» OUTPUT C+A 
306708 REM C IS IN DEGREES. AIS IN RADIANS 
306808 REM ALSO USES B+T INTERNALLY 

30690 T=SGN(X): X=ABS(X): C=O 

30700 IF X31 THEN C=1: K=1/X 


307 


10 A-K*¥x 


30720 B-((2,86G623E-3*A-1,G1G57E-2)*A+ 


4,2909G6E-2)*A 


30730 B=((((B-7,5289E-2) *A+,186563) *A- 


1142089) *A+,199936)*A 


30740 A=((B-,.333332) *A+1) *xK 
30750 IF C=1 THEN A=1.578796-A 
30760 A=T¥A: C=A*¥57,.29577951: RETURN 


APPENDIX H 


Sample Programs 


Space Guns 


1@ CLEAR 1009 

20 FOR Y = @7T01 

30 C = (¥+1)#16 

40 S$(¥) = CHR$(131+C)+CHR$(139+C)+CHRS 


(130+C) 
50 S2$(Y) = CHR#(128+C)+CHRS$(136+C) 
6@ NEXT Y 
1@@ FOR Y = @TO1l 
105 C = JOYSTK(®@) 
110 ACY) = JOYSTK(O+Y*2) 
120 BCY) = JOYSTK(1+(Y#2)) 
130 IF A(Y) } 59 THEN ACY) = 59 
140 B(Y) = INT(B(Y)/4) * 4 
15@ L(Y) = BCY) * 8 + INT(ACY)/2) 
16@ IF L(Y) = 480 THEN L(Y) = L(Y) - 32 
170 NEXT Y 
18@ CLS(@) 
199 FOR Y = @7T0 1 
200 PRINT @ L(Y)» S#()35 
210 PRINT @ L(Y)+32% S28 (7) 5 
220 NEXT Y 
500 P = PEEK (65280) 
510 IF P = 125 OR P = 253 THEN GOSUB 1800 
5308 GOTO 100 
800 REM 
900 REM FIRE GUN ROUTINE 
1000 Vi = INT(B(1i)/2)+1 
1@i@ Hi = A(1) +2 
1@20 IF A(1) > A(@) THEN 1108 


1030 FOR H = Hi + 3 TO G3 

1@4@ IF POINT(H+Y1) = 2 THEN SOUND 180+2 
1050 SET(HsVi +4) 

1@60@ IF H <= Hi + 4 THEN 1080 

1070 RESET (H-2+ Vi) 

1080 NEXT H 

1090 RETURN 

1100 FOR H = Hi TO 4 STEP. -1 

1110 IF H = Hi THEN 1168 

1120 IF POINT(H-4+¥1)=2 THEN SOUND 180;2 
1130 SET(H-4+Vi +4) 

1140 IF H == Hi - 2 THEN 1160 

1150 RESET(H-2 +1) 

116@ NEXT H 

1170 RETURN 


Bouncing Ball 
o CLEAR 12 


B INPUT "BACKGROUND COLOR(1-8)"35 C 
9 CLS(C) 

1@ X=13: Y=13 

15 XM = 20: YM = 15 

400 F=0 

4i@ KT = Kk: YT =Y 

420 XK = Kk + kK Ye ¥ + WM 

430 TX = Xi TY = Yi Tl = KM: T2 = YM 
440 GOSUB 1000 

450 X = TX: Y= TY: XM = Tit YM = Te 


4535 H = INT(XT/2) #2: V 


= INT(YT/2) #2 


460 SET(HsVeC): SETCHt+1 sV5C) 


462 SET(HsVti»C): SETCH+1 sV+i +0) 
470 RESET(XK+¥) 
488 GOTO 400 
499 REM 
1000 REM CHECK BOUNDARIES 
10210 IF TX =» 63 THEN TX = 63: Ti = -Tl 
1920 IF TX < @ THEN TX = @: Ti = -Til 
1030 IF TY = 31 THEN TY = 31: T2 = -T2 
1940 IF TY ~< @ THEN TY = @: T2 = -T2 
1999 RETURN 

Blackjack 
> REM BUILD ARRAYS 


7 DIM S#$#(5)+ N$(13)+ D(52)+ P(S)+ CCS) 

10 DATA 16+ 32+ 48, 9G, i 

20 DATA *ACE*#*+ *TWO*¥*s *THREE*»s *FOUR*:+ 
*#FIYE#, *SIX¥*%+ SEVEN*®+ EIGHT#+ *NINE*s 
¥TEN#*%» *JACK¥ + QUEEN*+ *KING* 


30 FOR K = 1705: 


READ S: S#(X) = 


CHRS(143+5): 


40 FOR kX = 170 13: 


w 
‘ 


45 CLS(G6) 


NEXT x 


READ NS: N#(X) = NS: NEXT 
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46 PT = @: CT = @ 

47 FOR XK = 170 5: P(X) = @: CCX) = O: NEXT 
5@ FOR X = 1 TO S2: D(X) = Kt NEXT & 

6@ FOR KX = 1 TO 5: GOSUB 1000: P(X) = 2: NEXT 


70 FOR X = 1 TO 3: GOSUB 1000: C(X) = 2: NEXT 


72 REM 

73 REM PRINT PLAYER’S HAND 

88 L = 257 

90 FOR M = i TO 2: C = P(M): GOSUB S80: PT = 


100 FOR M = 170 3: § = 5: GOSUB 2000: NEAT 


1092 REM 

105 REM PRINT COMPUTER’S HAND 
110 L = 18 

120 S = 5: GOSUB 2000 

130 C = C(2): GOSUB 500: CT = CT +T 


15@ PRINT @ 8» "COMPUTER’S HAND" 

160 PRINT @ 267» "YOUR HAND" 

200 L = 269: K = 3 

205 PRINT @ 230, "ANOTHER CARD(Y/N)?"$ 

210 R$=INKEY$: IF R$=" " THEN 210 

220 IF R& = "N" THEN 255 

230 C = P(K): GOSUB 500 

240 PT = PT +T 

242 FOR X = 1 TOK 

244 IF PT > 21 AND (P(X)-1)/13 = INT((P(X)- 
1)/13) THEN PT = PT - 10 

246 NEXT X 

247 IF PT > 21 THEN PRINT @ 488; “YOU 
BUSTED! !!"3: GOTO 400 

250K = K + i: IF K <6 THEN 205 

g=5 Lote 

260 C = C(1): GOSUB 500: CT = CT +T 

360 IF PT <=CT THEN 380 

370 PRINT @ 484; "CONGRATULATIONS WINNER! "$ 

375 GOTO 390 

380 PRINT @ 487» "TOUGH LUCK; KID" 

390 REM 

4@@ PRINT @ 230, "ANOTHER GAME(Y/N)?"$ 

410 R$=INKEY$: IF R$="_" THEN 410 

420 IF R$ = "Y" THEN 45 ELSE END 

430 IF N= 1 THENT = 11 

500 GOSUB 4000: GOSUB 2000 

510 GOSUB 3000: RETURN 

900 REM 

1000 REM DEAL THE CARDS 

1005 Z = RND(52) 

1010 IF D(Z) = ® THEN 1000 

1020 D(z) = @ 

1930 RETURN 

1900 REM 

2000 REM PRINT THE SUITS 

2005 Li =L 

2010 FOR X = 1706 

2015 Li = Li + 32 


TO 5 
+ (¥-1) 5 SS$(5)5 


2045 Li = @: =L+6 


2980 REM 


3010 FOR X = 1TO6 

302@ Li = Li + 32 

3030 PRINT @ Lit?» MIDS(NS(N) + X» 1)3 
3040 NEXT X 

3045 Li = 0 

3050 RETURN 

3900 REM 

4000 REM COMPUTE NUMBER AND SUIT 
4005 S = INT((C-1)/13)+41 

4010 N = C-(S*13-13) 

4015 REM COMPUTE POINT VALUE 


4020 IF N= 11 OR N = 12 OR N = 13 THEN T = 10 
ELSE T=N 
4030 IF N = 1 THEN T = 11 


4040 RETURN 


Kaleidoscope 


1@ CLS@ 

20 X=RND(32)-1 

3@ Y=RND(16)-1 

40 2=RND(9)-1 

5@ GOSUBSS8 

68 GOTO2Ze@ 

90 IFZ=0 OR RND(7)=3THENI5@ 
100 SET(31-Xs16+Y 52 
110 SET(31-K+15-Y 92) 
120 SET(32+K +16+Y +2) 
13@ SET(32+K115-Y¥ 2) 
140 RETURN 

15@ RESET(31-x+1G6+Y) 
160 RESET(31-X+15-Y) 
170 RESET(32+x% +16+Y) 
180 RESET(32+xk+15-Y) 
198 RETURN 


Electronic Dice 


4 CLEAR 2000 

S ELS (3) 

6 DIM DBS(G) 

8 DIM DF(21)+ P(G)»+-D$(G) 
10 REM FACES IF DIE 
20 FOR X = 1 70 21 

30 READ DF(K 

40 NEXT & 
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3@ DATA 39 
62 DATA 14» 64 
70 DATA 14+ 39» 64 


Ba 
308 


DATA 14+ 20, 58, 64 
DATA 14+ 20, 39, 58, 64 


100 DATA 14+ 20, 36+ 42+ 58,» 64 
105 FOR x = 1 TO 7 

110 REM 

12@ REM PLACE IN ARRAY DF 
13@ FOR x = 1706 

14@ READ P(x) 

150 NEXT x 

1608 DATA 1+ 2+ 4s 7+ Li» 16 


165 REM 

170 REM BUILD DIE STRING 
175 FOR x = 1706 

1828 M = P(K 


185 FOR Y = 1 7T0 7 

19@ FOR 2 = 170 11 

192 IF (¥-1)*11+Z <> DF(M) THEN 200 
194 D$(xK) = D(X) + CHR$(128) 

196 M=M + 1 


197 IF M = 22 THEN M = ® 

198 IF M = X THEN M = @ 

199 GOTO 230 

200 D$(K) = D$(K) + CHR$(143+96) 
230 NEXT 2 

240 FOR Z = @ TO 3i-ii 

250 D$(K) = D$(X) + CHR$(143+32) 


270 NEXT Ys X 
480 REM 

490 REM ROLL DICE 

500 FOR T = 1 7018 

510 A=RND(6): B = RND(G) 

520 PRINT @ 35+ D$(A)3 

530 PRINT @ 273» D#(B)3 

540 NEXT T 

550 PRINT @ 113» "PRESS ANY KEY"$ 
560 PRINT @ 145» "FOR NEXT ROLL" 
570 K$=INKEY$: IF K$=" " THEN 5708 
580 GOTO 5a0 


Play Back Your Tune 
5S DIM A(25)+ S$(13)+ B(200): Y= 


FOR X = 1 TO 25: READ ACK): NEAT & 
DATA 89+ 99+ 108+ 117% 125 

DATA 133, 140» 147, 153, 159 

DATA 165, 170+ 176, 18@, 185 

DATA 189+ 193+ 197+ 200, 204 

207, 210, 213+ 216» 218 

FOR X = 1 7T0 13: READ S$(K): NEXT X 
DATA ArW+SsEeDoF eT +Ge¥ He U sed ok 
CLS 


92 PRINT @ 167, "COMPOSE YOUR SONG" 

94 PRINT @ 227, "USE KEYS ON 2ND & 3RD ROWS" 
96 PRINT @ 292, "PRESS “X> WHEN FINISHED" 
100 P$ = INKEY$ 

110 IF P$# = " " THEN 10@ 

115 FOR kX = 17013 

120 IF P$ «3 S$(K) THEN 150 

130 SOUND ACK)» 5 

140 B(Y) = kK 

145 Y= ¥ * 1 

15@ NEXT &K 


160 IF P$@ <3 "K" THEN 100 

165 CLS 

170 PRINT @ 282, "SONG PLABACK" 

174 PRINT @ 264s "WHICH KEY(1-11)"5 
176 INPUT K 

180 FOR X = 1 7T0 Y-1 

190 SOUND A(B(XK)+K)s 5 


200 NEXT X 
210 GOTO 165 


Learn That Tune 


10 DIM M(S@)+ T(8) 

20@ FOR B= i708 

30 READ T(B) 

40 NEXT B 

58K = 1 

6@ M(X) = RND(8) 

7@ FOR Y = i TO XK 

BO CLS(M(Y)) 

92 PRINT @ 239% M(Y)5 

100 SOUND T(M(Y))+ 8 

110 NEXT Y 

120 CLS 

130 PRINT @ 231i» "PLAY BACK THE TUNE" 
140 FOR Y = i TO X 

15@ T=1 

160 K& = INKEYS 

17@ T=T+i 

180 IF T + 150 THEN 3190 

190 IF Kk# = " " THEN 168 

200 K = YALC(KS) 

210 IF K <> M(Y) THEN 310 
220 CLS(K) 

230 PRINT @ 239% K3 

240 SOUND T(K)>s 3 

25@ NEXT Y¥ 

260 X =X + 1 

270 CLS: PRINT @ 230, "LISTEN TO NEXT TUNE"S 
280 FOR T = 1 TO S500: NEXT T 
290 CLS: PRINT @ 230, "LISTEN TO NEXT TUNE"; 
322 GOTO 6@ : 

31@ CLS(0) 

320 PRINT @ 235% "YOU LOSE"3 


330 SOUND i+ 25 
340 DATA 89+ 188» 125+; 133+ 147+ 159, 170+ 
176 


Inventory Shopping List 
5 CLEAR 2000: DIM S#(100) 


1@ REM INYVENTORY/SHOPPING LIST 
28 CLS 
38 PRINT 71+ "DO YOU WANT TO--" 


134, "(1) INPUT ITEMS" 

166, "(2) REPLACE ITEMS" 

198+ "(3) ADD TO THE LIST" 

230, "(4) DELETE ITEMS" 

262+ "(5) PRINT ALL ITEMS" 

90 PRINT 294, "(6) SAVE ITEMS ON TAPE" 
102 PRINT @ 326+ "(7) LOAD ITEMS FROM TAPE" 
110 PRINT @ 395% "(1-7)"5 

120 INPUT M 

130 IF M< @ ORM = 7 THEN 18 

142 ON M GOSUB 1000; 2000; 1020, 3000, 4900, 


QO 
LL] 
mS) 
al 
— 
= 
4 
fw @ @ a w 


SOO8+ GAAD 
150 GOTO 18 
900 REM 
1000 REM INPUT/ADD ITEMS 
1010 ¥Y = 1 


1020 CLS: PRINT @ 8+ "INPUT/ADD ITEMS" 

1030 PRINT @ 34» "PRESS “ENTER? WHEN 
FINISHED" 

1@4@ PRINT: PRINT "ITEM" 35 

1045 INPUT S#(Y) 

1@50 IF S$(Y) = " " THEN RETURN 

1960 Y=Y¥+i 

1070 GOTO 1840 

1990 REM 

2000 REM REPLACE ITEMS 

2005 N = @ 

2010 CLS: PRINT @ 9+ "REPLACE ITEMS" 

2020 PRINT @ 34+ "PRESS «ENTER? WHEN 
FINISHED" 

2030 PRINT: INPUT "ITEM NO. TO REPLACE"; N 

2040 IF N = @ THEN RETURN 

2050 INPUT "REPLACEMENT ITEM"$ S#(N) 

2060 GOTO 2000 

2900 REM 

3000 REM DELETE ITEMS 

3005 N= @ 

3010 CLS: PRINT @ 9+ "DELETE ITEMS" 

3020 PRINT @ 34+ "PRESS “ENTER? WHEN 


FINISHED" 
3030 PRINT: INPUT "ITEM TO DELETE"; N 
3035 IF N = ¥Y-1 THEN 3038 


3040 IF N = @ THEN RETURN 
3050 FOR KX =N TO Y-2 
3068 S#$(X) = S$(Kt+1) 


3070 NEXT K 

3080 S$(K) =" * 

30908 Y = Y-1 

3100 GOTO 3002 

3900 REM 

4200 REM PRINT ITEMS 

4010 FOR X = 1 TO ¥-i STEP 15 

4020 FOR Z = X TO *+i4 

4830 PRINT Z3 S$(Z) 

4040 NEXT 2 

4050 INPUT "PRESS <ENTER?> TO CONTINUE"; C% 
4060 NEXT XK 

4072 RETURN 

4900 REM 

5800 REM SAVE ITEMS ON TAPE 

501@ CLS: PRINT @ 135+ “SAYE ITEMS ON TAPE" 
5020 PRINT @ 234+ “POSITION TAPE" 

5030 PRINT @ 294; “PRESS PLAY AND RECORD" 
5040 PRINT @ 388; “PRESS <ENTER® WHEN READY" 
5850 INPUT R$ 

5060 OPEN "O"» #-i+ "LIST" 

30708 FOR K = 1 TO Y-1 

5080 PRINT #-1+ SE(x) 

50908 NEXT x 

51@0@ CLOSE #-1: RETURN 

5900 REM 

6200 REM LOAD ITEMS FROM TAPE 

6010 CLS: PRINT @ 136+ "LOAD ITEMS FROM TAPE" 


22 PRINT @ 235+ “REWIND TAPE" 


6030 PRINT @ 300, “PRESS PLAY" 
GO40 PRINT @ 388» "PRESS <ENTER® WHEN READY" 
6850 INPUT R$ 

6060 OPEN "I"» #-1+5 “LIST" 
6070 Y = 1 

6080 IF EOF(-1) THEN 6120 
609@ INPUT #-1+ S#(Y) 

6895 PRINT S#(Y) 
Gi@a@y=Y¥+i 

6110 GOTO 688e 

6120 CLOSE #-1: RETURN 


Bar Graph 


10 


DIM A( 54392) + AS(5) 
DATA UTILITIES» PERSONNEL» SUPPLIES» 
RENT» TRAVEL 

FOR X= 1705 

READ AS(X 

CLS 

PRINT @ 139, "EXPENSES" 

PRINT @ 175 - INT(LEN(A$(X))/2) 9 AS<X) 
PRINT 

FORY=1703 


1@@ PRINT "DEPT" Y 
110 INPUT "BUDGETED"$ ACK +¥o1) 


175 


120 INPUT "ACTUAL"S ACKr¥s2) 

130 NEXT Y 

14@ NEXT x 

15@ CLS 

160 PRINT @ 133+ “WOULD YOU LIKE TO SEE" 
170 L = 283 

180 FOR x = 1705 

190 PRINT @ Le Ki AS(K) 

200 L=L+ 32 

210 NEXT X 

220 PRINT @ 460, "(1-5)" 

230 INPUT & 

235 C(1)=0:0(2)=0:LC(1)=8:L0(2)=08 
240 FOR Y = 1 703 

25@ C(i) ACKs¥s1)+C(1) 

260 C(2) ACKs¥s2) + C(2) 

270 NEXT ¥ 

280 IF C(Z2) > C(1) THEN 3190 

290@ LO(1)=30: LO(2)=INT(C(2)/0(1)*30) 
320 GOTO 3208 

310 LO(2)=30: LO(1)=INT(C(1)/0(2)*30) 


ou 


320 P = 129 

330 CL5S(@) 

340 PRINT @ li» "EXPENSES" 3 

35@ PRINT @ 47 - INT(LEN(A$(K))/2) 5 AS(K)S 
360 PRINT @ 97, "BUDGETED": 

370 PRINT @ 257+ "ACTUAL"S 

380 PRINT @ 448, CHR$(159)+CHRS$(159) 3 

390 PRINT @ 451i» "DEPT 1"5 

400 PRINT @ 459+ CHR$(175)+CHRS$(175)5 

410 PRINT @ 462, "DEPT 2"3 

420 PRINT @ 470, CHR#$(191)+CHRS$(191)5 

43@ PRINT @ 473+ "DEPT 3"5 

440 PRINT @ 480, "PRESS ANY KEY TO CONTINUE" S 
450 FORM=1i1TO2 

460 FORN=i1T02 


470 Pi = P+ 32 

480 FOR ¥Y = i 70 3 

490 D(Y) = INTCACK s¥oM)/C(1)*#LO(1)) 
500 FOR G = i TO D(Y) 

510 PRINT @ Pls CHR$(143+16*Y) 5 

520 Pi = Pi +1 


590 K$ = INKEY$: IF K#="_" THEN 590 
680 GOTO 158 


Speed Reading 


10 REM SPEED READING 
2@ CLS: PRINT @ 32+ "HOW MANY WORDS PER 
MINUTE" 
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INPUT "DO YOU READ"$’ WPM 

FOR X = 170 23 

READ A# : PRINT @ 256+ A$ 

FOR ¥ = 1 TO (360/WPM) * 460 : NEXT Y 
REM Y LOOP SETS LINES/MIN 

NEXT X : END 


100 DATA SCARLETT OHARA WAS NOT BEAUTIFUL 
11@ DATA BUT MEN SELDOM REALIZED IT WHEN 
12@ DATA CAUGHT BY HER OWN CHARM AS THE 
132 DATA TARLETON TWINS WERE. IN HER FACE 
140 DATA WERE TOO SHARPLY BLENDED 

150 DATA THE DELICATE FEATURES OF HER 

16@ DATA "MOTHER: A COAST ARISTOCRAT OF" 
170 DATA "FRENCH DESCENT» AND THE HEAWY" 
18@ DATA ONES OF HER FLORID IRISH FATHER 
190 DATA "BUT IT WAS AN ARRESTING FACE+" 
200 DATA “POINTED OF CHIN: SQUARE OF JAW" 
210 DATA HER EYES WERE PALE GREEN 


DATA "WITHOUT A TOUCH OF HAZEL +" 


230 DATA STARRED WITH BRISTLY BLACK 

240 DATA LASHES AND SLIGHTLY TILTED 

250 DATA "THE ENDS» ABOVE THEM» HER THICK" 
260 DATA "BLACK BROWS SLANTED UPWARDS +" 
278 DATA CUTTING A STARTLING OBLIQUE LINE 
280 DATA IN HER MAGNOLIA-WHITE SKIN--THAT 
290 DATA "SKIN SO PRIZED BY SOUTHERN WOMEN" 
300 DATA AND SO CAREFULLY GUARDED WITH 

310 DATA "BONNETS» VEILS» AND MITTENS" 


20 DATA AGAINST HOT GEORGIA SUNS 


Music Composer 


1@ INPUT "LENGTH(1-10)"3 M 
20 M = M*4 

30 INPUT "TEMPO (1-4)"35 Ti 
40 IF Ti = 4 THEN GO 

502 T = Ti : GOTO 78 

68 T=8 

70@ FOR K = 1 TO M*¥8 

B82 GOSUB 1000 

92 B - RND(3) *T 

100 SOUND P+ B 

11@ CLS(S) 

120 NEXT K 


130 IF RND(1@) «=8 THEN 158 
14@ SOUND 125,» 16*T 

1435 END 

15@ SOUND 9@,+ 16*T 

160 END 

1000 KX = RND(100) 


1@i10 IF X <= 20 AND X ¢=25 THEN P = 90: & = 
1020 IF X = 2@ AND X <=25 THEN P = 100: 5 = 
1030 IF X = 25 AND X ¢= 4@ THEN P = 125: 5 = 
1040 IF X > 4@ AND K <= 55 THEN P = 133 : 5 = 
1050 IF X » 55 AND X <= 75 THEN P = 147: 5 = 


hoe 


anew 


1060 IF X > 75 AND X <= 85 

1070 IF Kk > 85 AND X <= 95 THEN P 
10980 IF X > 95 THEN P = 58 : 

1899 RETURN 


4 
x 
m 
Zz 
vu 

nou 
i 
n 
co 

nou 
oD 


Memory Test 


This program uses an array to test both yours and your computer's 
memory: 


5S DIM AC(7) 

1@ PRINT "MEMORIZE THESE NUMBERS" 

15 PRINT "YOU HAVE 1@ SECONDS" 

2@ FOR KX = 1707 

38 A(X) = RND(100) 

4@ PRINT A(X) 

5@ NEXT & 

6@ FOR X = 1 TO 46@ * 10 : NEXT &K 

78 CLS 

8@ FOR X = 1707 

90 PRINT “WHAT WAS NUMBER" X 

1082 INPUT R 

110 IF A(X) = R THEN PRINT "CORRECT" ELSE 
PRINT "WRONG - IT WAS" A(X) 

120 NEXT XK 


APPENDIX | 


Error Messages 


/0 Division by zero. You asked the computer to divide a num- 
ber by 0, which is impossible. 

AO Attempt to open a data file that is already open. 

BS Bad subscript. The subscripts in an array are out of range. 


Use DIM to dimension the array. For example, if you have 
A(12) in your program, without a preceding DIM line that 
dimensions array A for 12 or more elements, you will get 
this error. 


CN Can’t continue. You are using the CONT command and are 
at the end of the program. 


DD Attempt to redimension an array. You'can dimension an array 
only once. For example, you cannot have DIM A(12) and 
DIM A(50) in the same program. 


DN Device number error. You can use only three devices with 
OPEN, CLOSE, PRINT, or INPUT: 0, -1, or -2. If you use an- 
other number, you'll get this error. 


DS Direct statement. The data file contains a direct statement. 
This can be a result of loading a program with no line 
numbers. 
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FC 


FD 


FM 


NO 


OD 


OM 


OS 


OV 


RG 


SN 


ST 


™ 


Illegal Function Call. You used a parameter (number) with a 
BASIC word that is out of range. For example, SOUND 
(260,260) or CLS(10) causes this error. Also RIGHT$(S$,20), 
when S$ contains only 10 characters, causes the error. Other 
examples are a negative subscript, such as A(-1), or a USR 
call before the address has been poked in. 


Bad file data. You printed data to a file or input data from a 
file, using the wrong kind of variable for the corresponding 
data. For example, INPUT #-1,A, when the data in the file is 
a string, causes this error. 


Bad file mode. You attempted to INPUT data from a file 
OPEN for OUTPUT (O), or PRINT data into a file OPEN for 
INPUT (I). 


Illegal direct statement. You can use INPUT only as a pro- 
gram line, not a command line. 


Input past end of file. Use EOF to check to see when you've 
reached the end of the file. When you have, close it. 


Input/Output error. Often this is caused by trying to input a 
program or a data file from a bad tape. 


String too long. A string may be a maximum of 255 
characters. 


NEXT without FOR. NEXT is being used without a matching 
FOR statement. This error also occurs when you have the 
NEXT lines reversed in a nested loop. 


File not open. You cannot input or output data to a file until 
you have opened it. 


Out of data. A READ was executed with insufficient data for 
it to READ. A DATA statement may have been left out of the 
program. 


Out of memory. All available memory has been used or 
reserved. 


Out of string space. There is not enough space in memory to 
do your string operations. Use CLEAR at the beginning of 
your program to reserve more string space. 


Overflow. The number is too large for the computer to 
handle. 


RETURN without GOSUB. A RETURN line is in your pro- 
gram with no matching GOSUB. 


Syntax error. This could result from a misspelled command, 
incorrect punctuation, open parenthesis, or an illegal charac- 
ter. Type the program line or command again. 


String formula too complex. A string operation was too com- 
plex to handle. Break up the operation into shorter steps. 


Type Mismatch. This occurs when you try to assign numeric 
data to a string variable (A$ =3) or string data to a numeric 
variable (A = ‘’DATA”’). 
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UL Undefined line. You have a GOTO, GOSUB, or other 
branching line in the program asking the computer to go to 
a nonexistent line number. 


APPENDIX J 
BASIC Summary 


Statements 


BASIC statements are commands that tell your computer to do some ac- 
tion, such as printing a message on the screen. Use BASIC statements as 
lines in your program. 


AUDIO Connects or disconnects Cassette output to TV speaker. 


CLEAR n,h_ Reserves rn bytes of string storage space. Erases variables. h 
specifies highest BASIC address. 


CLOAD Loads specified program file from cassette. If you do not 
specify filename, the first file encountered is loaded. Filename can 
be a maximum of 8 characters. 


CLOADM Loads machine-language program from cassette. You may 
specify an offset address to add to the loading address. 


CLOSE#dev Closes access to specified file. If you do not specify de- 
vice, all open files are closed. 


CLS c Clears display to specified color c. If you do not specify color, 
green is displayed. 


CONT Continues program execution after you have pressed (BREAK 
or used the STOP statement. 


CSAVE Saves program on cassette (program name can be a maximum 
of 8 characters). If you specify A, program is saved in ASCII 
format. 


DATA Stores data in your program. Use READ to assign data to 
variables. 


DIM Dimensions one or more arrays. 
END Ends program. 


EXEC (address) Transfers control to machine-language programs at 
specified address. If you omit address, control is transferred to ad- 
dress set in last CLOADM. 


FOR... TO STEP/NEXT Creates a loop in program that the computer 
must repeat from the first number to the last number you specify. 
Use STEP to specify how much to increment the number each 
time through the loop. If you omit STEP the computer uses 1. 


GOSUB Calls a subroutine beginning at specified line number. 
GOTO Jumps to specified line number. 


IF test THEN... action 1 ELSE action 2 Performs a test. If it is true, 
the computer executes action 1. ff it is false, then the computer 
executes action 2. 


INPUT Causes the computer to stop and await input from the 
keyboard. 


INPUT#-1 Inputs data from cassette. 

LIST Lists (displays) specified line(s) or entire program on screen. 
LLIST Lists specified program line(s) or entire program to printer. 
MOTOR Turns cassette ON or OFF. 

NEW Erases everything in memory. 

ON...GOSUB > Multiway branch to call specified subroutines. 
ON...GOTO Multiway branch to specified lines. 


OPEN m,#dev,f Opens specified file (7) for data transmission (m) to 
specified device (dev). m may be | (Input) or O (Output). dev may 
be #0 (screen or keyboard), #-1 (cassette), or #-2 (printer). 


POKE location, value Puts value (0-255) into specified memory 
location. 


PRINT Prints (displays) specified message or number on TV screen. 


PRINT # dey, data list Prints data list to specified buffer. (See OPEN.) 
To separate items within data list, use either commas or 
semicolons. 


PRINT #-1 Writes data to cassette. 
PRINT #-2 Prints an item or list of items on the printer. 
PRINT TAB. Moves the cursor to specified column position. 


PRINT @ scr pos Prints specified message at specified text screen 
location. 


READ Reads the next item in DATA line and assigns it to specified 
variable. 


REM. Allows insertion of comment in program line. The computer ig- 
nores everything after REM. 


RESET (X, Y)_ Resets a point. 


RESTORE Sets the computer's pointer back to first item on. the first 
DATA line. 


RETURN Returns the computer from subroutine to the BASIC word fol- 
lowing GOSUB. 


RUN Executes a program. 
SET (X,Y¥,C) Sets a dot at specified text screen position. 


SKIPF Skips to next program on cassette tape or to end of specified 
program. 


SOUND tone, duration Sounds specified tone for specified duration. 


STOP Stops execution of a program. 


182 


Functions 


BASIC functions are built-in subroutines that perform some kinid of 
computation on data, such as computing the absolute value of a num- 
ber. Use BASIC functions as data within your program lines. 


ABS (numeric) Computes absolute value: 
ASC (str) Returns ASCII code of first character of specified string. 
CHR$ (code) Returns character for ASCII, control, or graphics code. 


EOF (dev) Returns FALSE = 0 if there is more data; TRUE = —1 if 
end of file has been read. 


INKEY$ Checks the keyboard and returns the key being pressed (if 
any). 


INT (numeric) Converts a number to an integer. 


JOYSTK (jf) Returns the horizontal or vertical coordinate (j) of the right 
or left joystick: 
0 = horizontal, right joystick 
1 = vertical, right joystick 
2 = horizontal, left joystick 
3 = vertical, left joystick 


LEFT$ (str, length) Returns left portion (length characters) of a string. 


LEN (str) Returns the length of a string. 
MEM_ Finds the amount of free memory. 


MID$ (str,pos,length) Returns a substring of another string starting at 
pos. If you omit length, the entire string right of position is 
returned. 


PEEK (mem loc) Returns the contents of a specified memory location. 


POINT (S,Y) Tests whether specified graphics cell is on or off. x (hori- 
zontal) = 0-63; y (vertical) =0-31. The value returned is —1 if the 
cell is in a text character mode; 0 if it is off; or the color code if it 
is on. See CLS for color codes. 


RIGHTS (strlength) Returns right portion of string. 


RND(n) Generates a “random’’ number between 1 and n if n > 1, or 
between 0 and 1 ifn = O. 


SGN (numeric) Returns sign of specified numeric expression: 
—1=negative; O=0; +1 =positive. 


SIN (numeric) Returns sine of angle given in radians. 
STR$ (numeric) Converts a numeric expression to a string. 


USR (numeric) Calls user’s machine-language subroutine starting at 
the address 275,276 (MSB,LSB). 


MAL (str) Converts a string to a number. 


Operators 


BASIC operators perform some kind of operation on data, such as add- 


ing two numbers. 


-,+ 
* 

+ ,-— 

<>, = <= >=,<> 
NOT 

AND 

OR 


Unary negative, positive 

Multiplication, division 

Addition and concatenation, subtraction 
Relational tests 
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INDEX 


$ See strings 
; See print punctuation 
, See print punctuation 
20 
@) 11 
7/0 ERROR’ 10 
2LS ERROR = 54 
20S ERROR 53 
2SN ERROR 10 
?TM ERROR 14 
ABS 68 
alphabetizing See sorting 
analyzing 117 
AND 67 
answers to exercises 155 
arrays 105 
arrays, multidimensional 117 
ASC 87 
ASCII See ASC and character codes 
Asteroids, program 81 
AUDIO 83 
BASIC Summary 180 
black on green 11 
Blinking Computer, program 75 
BLKIN 143 
BLKOUT 144 
Boolean algebra 130 
Boolean operators AND, OR, NOT 130 
Card Dealing, program 121 
character codes 
listing 153 
use of 87 
CHR$ See character codes 
CHROUT 144 
CLEAR 54, 132, 141 
CLOADM 141 
CLOSE 100 
CLS 10 
color codes 
reference 150 
use of 10 
concatenate (+) 53 
CONT 65 
correcting See error 
Craps, program 41 
Dancing Computer, program 91 
data 
sorting 114 
storing on tape 99 
Deal the Cards, program 108 
deleting, program line 20 
Display Control Register 131 
Display Mode Selection, table 136 
division (/) 9 
Do-It-Yourself Programs See answers to exercises 
Drawing Board, program 124 
E notation 69 
Electronic Piano, program 59 
END 35 


error 

messages 178 
program line 20 
typographical error 
exponents 69 

FOR 24 

functions, BASIC 182 
games 38 


general-purpose subroutines 


GETKEY 141 
GIVABF 142 
GOSUB 48 
graphics 


character codes 88, 150 


strings 89 
modes 124 
modes, table 136 


7 


graphics screen location 


grid 152 

use of 73 
green on black 12 
IF 35 
information See data 
INKEY$ 59 
INPUT 19 
joysticks 76 
JOYSTK 76 
LEFT$ 54 

LEN 53 

LIST 18 

LLIST 113 

loops 30-39 


machine-language subroutines 


mapping functions 134 


MEM 65 

memory 13 

MID$ 55 

mistake, correcting 7 
MOTOR 83 
multiplication (*) 9 
musical tones 
reference 149 
use of 33 

nested loop 31 
NEXT 24 

numbers 9 

numeric data 15 
numeric, arrays 105 
ON GOSUB 66 
ON...GOTO 67 
OPEN 99 

OR 67 


Page-Select Register 131 


Painting, program 78 
parentheses, rules on 
PEEK 124, 130 

pixel 129 

plus (+), addition 53 
POINT 80 

POKE 124, 130, 141 
PRINT 8 
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128 


141 
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PRINT @ locations 

grid 277 

use of 40 
PRINT punctuation, rules 21 
PRINT #-1 100 
PRINT #-2. 112 
printer, use of $112 
prompt 7 
RESET 75 
resolution 129 
RESTORE 44 
RETURN 48 
reversed colors 11 
reversed colors, GHIFD(O) 113 
RIGHT$ 54 
RND 38 
Rolling the Dice, program 40 
ROM subroutines 143 
RUN 18 
Russian Roulette, program 39 
sample programs 168 
SET 72 
SGN 68 
singing 33 
sorting 114 
SOUND 11, 27 
statements, BASIC 180 
STEP 26 
STOP °65 
STR$ 68 
STRING DATA 15 
string, arrays 110 
string(s) 9, 14 
subroutines 

descriptions 48 

ROM routines 143 

general purpose 128 
subscripted variables 105 
Talking-Computer Teacher, program 
taping 99 
technical information 123-45 
THEN 35 
Three Blind Mice, program 34 
tone 11 
Typing Test, program 62 
USR 142 
variables 19-22 
variables, subscripted 105 
VDG 131 
Video Display Generator Register 
VIDEO RAM 130 
VIDEO RAM Page Selection, table 
Vocabulary, program 43 
Voting Tabulation, program 105 
Word Processing, program 112 
Writing an Essay, program 111 
WRTLDR_ 144 
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RADIO SHACK, A DIVISION OF TANDY CORPORATION 


U.S.A. CANADA 
FORT WORTH, TEXAS 76102 BARRIE, ONTARIO, L4M4W5 


PRINTED IN KOR 
9A4 : 811015320A 


